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IDENTIFICATION 


PRODUCT CODE: AC-E768A-MC 
PRODUCT NAME: CVVSAAO VSV11 CSS DIAG 
MAINTAINER: CSS PRODUCTS 
AUTHORS : DON MACOMBER 
GUS PASQUANTONIO 
BILL WEISKE 


DATE: 23 FEB 81 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MAS SBUS 
DEC DECUS DEC TAPE 


SEQ 0001 
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SEQ 0002 
A EN a Ee fe Ptah OR ge” Sy Rana -- 
2 1.0 PROGRAM ABSTRACT 
5 
5 THE VSV11 DIAGNOSTIC PROGRAM PROVIDES A SERIES OF TESTS 
54 DESIGNED TO VERIFY THE INTEGRITY AND OPERABILITY OF THE 
5s. VSV11/VS11 Q=BUS VIDEO IMAGE PROCESSING SYSTEM. 
Tol SOME OF THE TEST SEQUENCES ARE VISUAL ONLY. HOWEVER ALL 
TESTS WILL RUN WITH OR WITHOUT A DISPLAY MONITOR 
5 CONNECTED 70 THE SYSTEM. THE TESTS DESIGNATED 
59 “DPU-ONLY'' WILL RUN WITHOUT THE ‘‘DBUS'' CONNECTED 
00 TO THE DISPLAY PROCESSOR MODULE (M7064). 
6) THE PROGRAM WILL SUPPORT UP TO 16 VSV11 SYSTEMS. 
62 HOWEVER, MULTI-UNIT CONFIGURATIONS ARE TESTED ONE AT 
63 A TIME BY THE PROGRAM. 
64 ANY LOGIC ERRORS ENCOUNTERED ARE REPORTED ON THE SYSTEM 
o CONSOLE DEVICE. 


71 DPU ONLY TESTS: 


IT ONES 
REGISTERS UNIQUE ADDRESS 
INCREMENTING REGISTERS 
DPU START~STOP 
DPU OPCODES 
INCREMENTING HISTOGRAM BASE ADDRESS 
INCREMENTING CHARACTER BASE ADDRESS 
DJMS/DPOP 
MAIN MEM MGT ACCESS (OVER 28k) 
AUX MEM MGT ACCESS (OVER 28K) 
STOP_INTERUPT 
DPU TIME-OUT INTERUPT 
ERROR CODES 
ADDRESS RELOCATE 
CHARACTERS 
ABSOLUTE POINTS 
LONG VECTORS 
RELATIVE POINTS 
SHORT VECTORS 
RUN~LENGTH 


IMAGE MEMORY & SYNC GENERATOR TESTS & DISPLAYS: 
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TEST 23 CURSOR REGISTERS/SWITCH/MATCH 
TEST 24 GRAPH=HISTOGRAM X 

100 TEST 25 GRAPH=HISTOGRAM Y 

101 TEST 26 BIT MAP (1) 

102 TEST 27 BIT MAP (0) 

103 TEST 28 IMAGE MEMORY CLEAR~SET 

104 TEST 29 IMAGE MEMORY INTERLACE 

105 TEST 30 IMAGE MEMORY PATTERNS 
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TEST 31 SPARE 

TEST 32 SYSTEM VERIFICATION DISPLAY 

STAND ALONE TESTS & ROUTINES: 

TEST 33 JOY-STICK VERIFICATION (STAND ALONE) 
TEST 34 SELECTED DISPLAYS (STAND ALONE? 

TEST 35 SYSTEM CONFIGURATION (STAND ALONE) 


2.0 STRUCTURE OF PROGRAM 


THIS PROGRAM IS STRUCTURED TO RUN es Tc THE DIAGNOSTIC 
SUPERVISOR (REV D) AND THE XXDP+ MONITO 

A BRIEF OVERVIEW OF OPERATING INSTRUCT IONS IS PROVIDED 
IN SECTION 3.1 OF THIS DOCUMENT. REFER TO CHAPTER 5 OF 
THE XXDP+ USERS MANUAL FOR FURTHER DETAILS. 
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128 ro HARDWARE REQUIREMENTS 


131 PDP-11/LSI-11 PROCESSOR WITH 28K OR MORE OF MEMORY 
1 CONSOLE DEVICE (LA30, LA36, VT50, vT100, of 

1 XXDP+ LOAD DEVICE (RX, RP, RL, TM, DT, ETC.) 

1 1 TO 8 VSV11 SYSTEMS, EACH CONSISTING OF: 

| M7064 DISPLAY PROCESSER 

‘e M7062 IMAGE MEMORY (1 TO 4 CHANNELS) 
: 

1 

1 
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3/7 M7061 SYNC GENERATOR WITH CURSOR CONTROL 

38 DISPLAY MONITOR, COLOR OR MONOCHROME (OPTIONAL). 

39 DwW11 UNIBUS TO LSI-11 BUS CONVERTER (OPTIONAL, VS1i 
40 SYSTEMS ONLY). 


146 XXDP+ USERS MANUAL ( CHQUSA ) 

147 VSV11 OPTION DESCRIPTION (YM-C183C) 

148 VSV11 DIAGNOSTIC LISTING (SEC 7 OF THIS DOCUMENT). 
150 


3.0 LOADING AND STARTING PROCEDURES 


THIS PROGRAM IS LOADED AND STARTED FROM ANY XXDP+ MEDIA 
USING THE STANDARD XXDP+ OPERATING PROCEDURES. 


AT START UP, THE SUPERVISOR WILL IDENTIFY ITSELF AND THE 
NAME OF THIS PROGRAM ON THE CONSOLE DEVICE, AND THEN 
DISPLAY A COMMAND MODE PROMPT ( DR> ) WHICH INDICATES 
READY TO ACCEPT ANY OF THE FOLLOWING COMMANDS. 
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143 2.2 RELATED DOCUMENTS AND STANDARDS 
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SEQ 0003 
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164 i: -» 3.1 SUPERVISOR COMMAND SUMMARY 

M4 og abory aaa seeeeeeeeee 

167 THIS SECTION PRESENTS A BRIEF OVERVIEW OF THE COMMANDS 
168 NECESSARY TO CONTROL THE OPERATION OF THIS DIAGNOSTIC 
169 UNDER THE REV D DIAGNOSTIC SUPERVISOR. 

177 STA(RT) INITIAL START-UP <= BUILD P-TABLES. 

172 RES (TART) RESTART -- USE EXISTING P=TABLES. 

173 CON (TINUE) CONTINUE AFTER <*C> OR ERROR HALT. 

174 PRO(CEED) CONTINUE AFTER ERROR HALT. 

175 EXI(T) RETURN TO XXDP+ MONITOR. 

177 THE FOLLOWING SWITCHES APPLY TO THE ABOVE: 

179 /TESTS: <TEST NUMBERS TO RUN> 

180 /PASS: <NUMBER OF PASSES TO RUN> 

181 /FLAGS: <SEE FLAG LIST BELOW> 

182 7EOP: <NUMBER OF PASSES ‘TIL END-OF-PASS> 

184 ADDITIONAL COMMANDS AVAILABLE ARE: 

186 DRO(P) /UNIT :N REMOVE UNIT N FROM TEST LIST 

187 ADD/UNIT:N ADD UNIT N (PREVIOUSLY DROPPED). 
188 DIS (PLAY) /UNIT:N PRINT UNITS P-TABLE AND STATUS. 
189 PR] (NT) PRINT STATISTICS (PER-UNIT STATUS). 
190 7FL (AGS) CLEAR ALL FLAGS. 

191 FLA(GS) PRINT CURRENT FLAG SETTINGS. 

193 THE GENERALIZED COMMAND STRING FORMAT IS: 

195 COM(MAND) /SWITCH:VALUE/SWITCH: VALUE ... <CR> 

197 

+ ee a ee ee 

19. 3.2 RUN TIME OPTION FLAGS 

TOPE RSI | aie aN earns 

502 THE FOLLOWING FLAGS ARE USED IN LIEU OF THE OLD 

303 HARDWARE SWITCH REGISTER TO FURTHER DEF INE 

204 PROGRAM BEHAVIOUR: 

306 HOE HALT ON ERROR 

507 LOE LOOP ON ERROR 

508 IER INHIBIT ALL ERROR REPORTS 

509 IBE INHIBIT BASIC ERROR REPORTS 

510 iXR INHIBIT EXTENDED ERROR REPORTS 

511 PRI SEND ALL REPORTS TO LINE PRINTER 

512 PNT PRINT TEST NUMBERS (AND 1.D'S) AS EXECUTED 
513 BOE GOOD OLD" BELL ONE ROR"! 

514 UAM RUN IN “UNATTENDED'’ MODE (NO MANUA 

215 1SR INHIBIT STATISTICS (PER-UNIT STATUS EACH PASS) 
516 IDU INHIBIT “AUTO-DROP*’ (EXCEPT FOR NON-EXISTENT REG. ) 
517 ADR EXECUTE "‘AUTO-DROP'’ (USER SUPPLIED CODE) 
518 LOT LOOP ON TEST 

519 EVL: EVALUATE ERRORS (NOT IMPLEMENTED) 


SEQ 0004 
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3.3 


SEQ 0005 


FLAG SETTINGS ARE ALTERED BY USING THE /FLAGS: SWITCH 
IN ANY COMMAND STRING. I1.E£. STA/FLAG:IER:BOE <CR> 
WILL START THE PROGRAM, RUN ALL TEST IN ORDER, INHIBIT 
ERROR TYPEOUT, RING BELL ON ERROR. 


WHENEVER THE PROGRAM IS STARTED, VIA THE STA(RT) COMMAND, 
THE SUPERVISOR REQUESTS THE FOLLOWING P-TABLES PARAMETER 
CHANGES : 

CHANGE HW (L) ? 


ait & (D) ? 


UNIT 

DEVICE ADDRESS (0) 172010 ? 
1ST INTERUPT VECTOR (0) 320 ? 
INTERRUPT PRIORITY (0) 4 ? 

LUT INSTALLED (L) N ? 
FREQUENCY = 50H2Z (L) N ? 


IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 
yy th, CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 
LLOWS: 


CHANGE SW? 


RUN DPU TESTS ONLY ( 
LONG MEMORY TESTS ( 
INHIBIT ITERATIONS ( : 
MANUFACTURING MODE ( ; 

PER TEST ERROR LIMIT (D) 25 ? 
PER UNIT ERROR LIMIT (D) 200 ? 


IF ‘RUN DPU TESTS ONLY?'' IS ANSWERED ‘'YES*', NO COMMUNICATION 
WITH THE IMAGE MEMORIES OR SYNC CHANNELS IS MADE; THE PROGRAM 
CAN BE RUN WITH THE ‘DBUS'’ CABLE DISCONNECTED. IF ‘LONG 
MEMORY TESTS'' IS SELECTED, 15 DIFFERENT PIXEL DATA VALUES ARE 
USED DURING TEST 28 (IMAGE MEMORY CLEAR-SET) RATHER THAN THE 
STANDARD 5 VALUES. INHIBITING ITERATIONS CAUSES THE PROGRAM 
TO RUN FASTER, EQUIVALENT TO THE FIRST PASS AFTER STARTUP. 

IF "MANUFACTURING MODE'' IS SELECTED, PREDEFINED PARAMETERS ARE 
USED FOR THE IMAGE MEMORY AND SYNC CHANNEL CONFIGURATION DATA. 
THE ERROR LIMITS DEFINE THE NUMBER OF ERRORS ALLOWED TO OCCUR 
BEFORE A UNIT IS DROPPED (UNLESS THE /FLAG:IDU FLAG IS SET 10 
INHIBIT DROPPING OF UNITS). FOR EXAMPLE, IF 25 ERRORS OCCUR 
IN TEST 3 WHILE TESTING UNIT 2, UNIT 2 WILL BE DROPPED. OR, 
IF UNIT 2 ACCUMULATES 200 ERRORS OVER THE COURSE OF SEVERAL TESTS 
OR PASSES, IT WILL BE DROPPED. 
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4. 
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LOGIC ERRORS ARE REPORTED BY THE DIAGNOSTIC SUPERVISOR 
AS THEY OCCUR, HOWEVER, IT MUST BE NOTED THAT CAREFUL 
OBSERVATION OF THE VARIOUS VISUALS FRAMES IS ALSO 
REQUIRED TO VERIFY TOTAL SYSTEM PERFORMANCE. 


EACH ERROR SIGNATURE CONSISTS OF ONE OR MORE LINES OF 
TEXT, DESCRIBING THE ERROR, AND INCLUDES EXPECTED VS 
RECEIVED DATA WHERE APPLICABLE. 
THE FIRST LINE IS THE SUPERVISORS HEADER (BASIC), WHICH 
INCLUDES PROGRAM NAME, ERROR TYPE (HRD, SFT, DEV FATAL, 
OR SYS FATAL), ERROR NUMBER, TEST AND SUB-TEST NUMBERS, 
AND PC. THE HEADER WILL NORMALLY BE FOLLOWED BY ONE oR 
MORE (EXTENDED) LINES FURTHER IDENTIFYING THE ERROR. 


EXAMPLES: 
CVVSA DEV FTL ERR 00002 ON UNIT 00 TST 000 SUB 001 PC: 
*BUS-INIT'’ DIDN'T INITIALIZE DPU 
= 0 DROPPED 
> 


DXR,DYR REC'D: 0000,0000 
ORIGIN: 0000,0000 6x,DY:041776,000000 


NOTE THAT THE ERROR NUMBER IS IN THE FORMAT oo 
WHERE EE IS THE E‘TH ERROR CALL WITHIN TEST TT 

WHEN ERRORS OCCUR OUTSIDE THE CONFINES OF A GIVEN TEST 
(INITIALIZE, OR SOME GLOBAL SUBROUTINE), TTT = 0. 


I1.—£. ERR 00002 = 2ND ERROR IN PROGRAM INITIALIZATION. 
ERR 00801 = 1ST ERROR IN TEST 8. 


ERROR HALTS ARE CONDITIONED BY THE HALT-ON-ERROR 
SWITCH ( /FLAG:HOE ). 

HALT IN THIS CONTEXT MEANS RETURN TO COMMAND MODE. 
THERE ARE NO OTHER PROGRAM HALTS. 

PRO(CEED) TO RESUME FROM THE POINT OF THE ERROR CALL. 
CON(TINUE) TO RESTART AT THE BEGINING OF THE TEST IN 
IN WHICH THE ERROR OCCURED. 


SEQ 0006 
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4.2 


5.0 


SEQ 0007 


UNDER SOME CONDITIONS OF FATAL OR EXCESSIVE ERRORS, 

A UNIT WILL BE ‘DROPPED'' FROM THE LIST OF DEVICES 

BEING TESTED. FOR EXAMPLE, IF A DEVICE REGISTER IS 
NON-EXISTENT, THE UNIT IS DROPPED BEFORE ACTUAL TESTING 
COMMENCES. IN ADDITION, A UNIT WILL BE DROPPED IF 25 
OR MORE ERRORS OCCUR WITHIN ANY ONE TEST (UNLESS THE 
/FLAGS:IDU SWITCH IS SET). THE DROPPED UNIT IS REPORTED 
AND APPEARS IN THE PER-UNIT STATISTICS REPORT. IN SOME 
CASES, THE ERROR COUNT IS NOT TESTED UNTIL THE END OF 

A TEST LOOP, SO MORE THAN 25 ERRORS CAN OCCUR BEFORE 
THE UNIT IS DROPPED. 


NORMAL PROGRESS THROUGH A GIVEN TEST SEQUENCE IS 
INDICATED BY THE PRINTING OF EACH TEST'S NUMBER AND 
TITLE ON THE SYSTEM CONSOLE DEVICE (IF THE /FLAGS:PNT 
SWITCH IS USED), FOLLOWED BY AN END-PASS WHEN ALL TESTS 
HAVE BEEN EXECUTED ON ALL UNITS. IN ADDITION, IF THE 
/FLAGS:ISR SWITCH IS NOT SET, AND IF MULTIPLE UNITS ARE 
BEING TESTED, THE PER-UNIT STATUS IS PRINTED AT THE END 
OF EACH PASS. 


IF RUNNING WITH ERRORS INHIBITED (/FLA:IER), AN ERROR 
COUNT IS KEPT FOR EACH TEST, AND DISPLAYED AT THE END 
OF THAT TEST. THERE ARE NO OTHER PROGRESS REPORTS. 


EXECUTION TIMES WILL VARY SOMEWHAT, DEPENDING ON CPU 
TYPE AND OPERATING MODE. THE FOLLOWING ARE TYPICAL 
EXECUTION TIMES OBSERVED ON A PDP-11/34 SYSTEM: 


1ST PASS SUBSEQUENT PASSES 
NORMAL MODE 4.5 MIN 8.6 MIN 
DPU ONLY MODE 0.4 MIN 2.3 MIN 
LONG MEMORY TEST MODE 5.6 MIN 9.7 MIN 
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SEQ 0008 


THERE ARE THREE CATAGORIES OF TESTS, AS FOLLOWS: 
1. DPU ONLY TESTS (SEC. 6.1) 
2. IMAGE MEMORY & SYNC GENERATOR TESTS & DISPLAYS (SEC. 6.2) 
3. STAND-ALONE TESTS (SEC. 6.3) 


THE FOLLOWING PARAGRAPHS PROVIDE A BRIEF DESCRIPTION OF 
THE TESTING SEQUENCE. REFER TO THE PROGRAM LISTING FOR 
DETAILS. DURING PROGRAM INITIALIZATION, CERTAIN 
MINIMAL TESTING IS DONE IN ORDER TO: 


A. VERIFY THAT THE DEVICE ADDRESS FOR THIS UNIT 
B. VERIFY THAT THIS UNIT IS PROPERLY INITIALIZED 
FOLLOWING A BUS-RESET. 


THE FOLLOWING ERRORS MAY OCCUR OUTSIDE THE CONFINES OF 
THE NORMAL TEST SEQUENCE: 


ERR 00000 UNEXPECTED DPU ERROR INTERRUPT. 
ERR 00001 NON-EXISTANT DEVICE REGISTER. ABORT. 
ERR 00002 BUS-INIT DIDN'T INITIALIZE DPU. 


THE FOLLOWING NOTES APPLY TO ALL TEST SEQUENCES: 
1. UNLESS OTHERWISE NOTED, TESTING CONTINUES 
AFTER ANY ERROR. 
2. ALL as * hae KBD INPUTS ARE IGNORED 


EXCEPT : 
<“0> SUPPRESS TTY OUTPUT 
<*C> HALT <RETURN TO COMMAND MODE) 
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6.1 


6.1.5 


THE TESTS IN THIS SECTION ARE THE ‘DPU ONLY*’ TESTS. 

THEY ARE RUN WHENEVER THE PROGRAM IS RUN AND THE TEST 
SWITCH DOES NOT EXCLUDE THEM. WHEN IN THE ‘DPU ONLY'’ MODE 
THESE ARE THE ONLY TESTS THAT MAY (WILL) BE RUN. 


ag A RESET INSTRUCTION AND CHECK EACH APPLICABLE REGISTER 
FOR ITS CORRECT STATIC STATE. 


SET ALL REGISTERS TO ONES, CHECKING THAT ONES GOT SET, THEN 
EXECUTE A RESET INSTRUCTION AND CHECK EACH REGISTER FOR ITS 
CORRECT STATIC STATE. 


SET ALL REGISTERS TO ONES, CHECKING THAT ONES GOT SET, THEN 
EXECUTE A SOFTWARE INITIALIZE AND CHECK EACH REGISTER FOR ITS 
CORRECT STATIC STATE. 


ALL REGISTERS ARE SET TO THEIR NORMAL STATIC STATE VIA SOFT INIT. 
EACH APPLICABLE REGISTER, IN TURN, IS SET TO ITS CAPACITY FOR ONES. 
THEN ALL OF THE OTHER REGISTERS ARE CHECKED THAT THEY REMAINED STATIC. 


INCREMENT AND CHECK EACH REGISTER TO THE LIMIT OF ITS CAPABILITY. 


SEQ 0009 
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SEQ 0010 


6.1.6 TEST 6. DPU START=STOP 


TEST 1 VERIFIES THAT THE DISPLAY PROCESSER (DPU) CAN 
EXECUTE START, STOP, RESUME, NOP, AND JUMP INSTRUCTIONS. 


ALL OPCODES WHICH TRANSFER PIXEL INTENSITY DATA TO THE 
DPU (100000 THRU 130000) ARE EXECUTED AND THE DSR IS 
TESTED TO VERIFY THAT THE PIXEL DATA WAS RECEIVED AND 
RETURNED BY THE DPU. ALL POSSIBLE VALUES OF PIXEL DATA 
ARE PASSED WITH EACH OPCODE. 
THEN ALL REMAINING OPCODES EXCEPT BIT MAPS (134000 AND 
136000), JUMP (160000), AND STOP (172000) ARE EXECUTED 
WITH BITS <9:0> OF THE OPCODE WORD SET TO ZERO AND WITH 
NO FOLLOWING DATA WORD. IN THIS CONFIGURATION, EACH 
eo SCINCLUDING THOSE UN-DEF INED) SHOULD APPEAR AS 
"NOP’' AS FAR AS FINAL REGISTER CONTENT IS CONCERNED. 


SET BASE HISTOGRAM AND INCREMENT THE BASE ADDRESS REGISTER TO 
ITS CAPACITY. 


6.1.9 TEST 9. INCREMENTING CHARACTER BASE ADDRESS 


SET BASE CHARACTER AND INCREMENT THE BASE ADDRESS REGISTER TO 
ITS CAPACITY. 


CHECK THE OPERATION OF THE JUMP TO SUBROUTINE INSTUCTION, 
INCLUDING THE ENABLE BIT AND THE PCSAVE REGISTER. 


a 3g pa MEMORY MANAGEMENT ACCESS FOR ALL AVAILABLE MEMORY 
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6.1.12 


6.1.13 


6.1.14 


6.1.15 


6.1.16 


SEQ 0011 


THIS TEST VERIFIES THAT THE STOP INTERRUPT LOGIC IN 
THE DPU FUNCTIONS CORRECTLY. VARIOUS COMBINATIONS OF 
DP ge WITH INTERRUPT ENABLED AND DISABLED 


IN THIS TEST, A NON-EXISTANT MEMORY ADDRESS IS PASSED TO 
THE DPU PC. IT SHOULD RESPOND WITH A TIME-OUT INTERRUPT 
BACK TO THE CPU. 


GENERATE EACH ERROR CONDITION POSSIBLE (TO SOFTWARE) 
AND CHECK FOR APPROPRIATE ERROR CODE GENERATION. 


THIS TEST VERIFIES THAT THE DPU CAN CALCULATE AN 18 BIT 
PC FROM AN INITIAL 16 BIT PC, PLUS THE CONTENTS OF THE 
12 BIT RELOCATE REGISTER. 

SINCE THE 2 HIGH ORDER ADDRESS BITS ARE INVISIBLE, THE 
TEST RELIES ON THE FACT THAT ANY CALCULATED PC WHICH 
EXCEEDS 18 BITS IN LENGTH WILL BE TRUNCATED TO 18 BITS 
(I.E. WRAP AROUND TO 000000). 

THE TEST USES ALL COMBINATIONS OF RELOCATE FACTOR AND 
INITIAL PC THAT YIELD A FINAL PC WITHIN THE TEST BODY. 
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6.1.18 


6.1.19 
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SEQ 0012 


IN THE VSV11, THERE IS NO HARDWARE CHARACTER GENERATOR. 
INSTEAD, CHARACTER MODE CAUSES A SUBROUTINE CALL TO A 
SUBPICTURE DISPLAY FILE WHICH CONTAINS THE CODE TO DRAW 
THE DESIRED CHARACTER OR SYMBOL. THE CHARACTER SUB-PIX 
ADDRESS IS OBTAINED BY USING THE ASCII CHAR CODE TO 
INDEX INTO AN ADDRESS TABLE WHICH CONTAINS THE STARTING 
ADDRESSES OF THE CHAR SET. 

THE STARTING ADDRESS OF THE ADDRESS TABLE IS SET WITH 
THE ‘'SET CHAR BASE'’ INSTRUCTION, AND EACH CHAR SUB-P IX 
IS TERMINATED WITH A ‘DPOP** INSTRUCTION. 

THIS TEST USES 1 COMMON SUBROUTINE AS A PSUEDO-CHARACTER 
AND SETS A UNIQUE BASE ADDRESS FOR EACH CHARACTER CODE 
SUCH THAT: BASE + 2(CODE) =_SUBROUTINE ADDRESS. 

THE FULL ASCII SET (000 - 177) IS TESTED IN THIS MANNER. 


IF THE PROGRAM IS NOT RUNNING IN DPU-ONLY MODE, THE FULL 
CHARACTER SET IS THEN DISPLAYED ON THE SCREEN TWICE: IN 
THE TOP DISPLAY, THE CHARACTERS ARE SITUATED ON EVEN-NUM- 
BERED SCAN LINES, WHILE IN THE BOTTOM DISPLAY THEY ARE ON 
ODD-NUMBERED SCAN LINES. 


THIS TEST VERIFIES THAT THE DPU CAN EXECUTE ABSOLUTE 
POINT MODE INSTRUCTIONS UTILIZING THE FULL _RANGE OF X/Y. 
(1) PLOT ALL X POINTS, HOLDING Y AT 0. 
(2) PLOT ALL Y POINTS, ae gene xX AT O. 
(3) PLOT ALL POINTS WHERE X 
Pe cnt Cores, POSITION REGISTERS ARE TESTED AS EACH POINT 
BY DEFAULT, PIXEL DATA ARE TRANSFERRED TO THE IMAGE 
MEMORY, AND DISPLAYED ON THE MONITOR (IF THERE IS ONE). 


THE IMAGE MEMORY AND VIDEO DISPLAY MAY BE INHIBITED 
BY RESPONDING <YES> TO THE ‘RUN DPU TESTS ONLY** QUERY 
AT START TIME. 


eee LONG VECTORS WITH — DELTA X/Y FROM 
X, 0.0 TO ALL POINTS WHERE X = Y (FANS DIAGONALLY 
FROM BOTTOM TO LEFT EDGE). THEN _* hrs PATTERN 
USING NEGATVE DELTA X/Y STARTING AT X,Y = MAX,MAX, 
THE X AND Y POSITION REGISTERS ARE TESTED AS EACH 
VECTOR IS DRAWN. 


VIDEO DISPLAY IS INHIBITED IF ‘DPU ONLY’’ WAS SPECIFIED. 
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6.1.21 


6.1.22 


6.2 


6.1.25 


SEQ 0013 


wes THAT THE DPU CAN GENERATE RELATIVE POINTS FROM 
chs ort 000 USING THE FULL RANGE OF DELTA X/Y 


(1) PLOT ALL X POINTS, HOLDING Y AT ~-76. 
(2) PLOT ALL Y POINTS, ~ ery X AT -76. 
(3) PLOT ALL POINTS WHERE Xx 
THE X AND Y POSITION IS VERIFIED AS EACH POINT IS DRAWN. 


VIDEO DISPLAY IS INHIBITED IN ‘DPU ONLY’’ MODE AS BEFORE. 


CHECK ALL ASPECTS OF THE RUN LENGTH MODE. 


IF RUNNING 'DPU ONLY'’ MODE, YOU WILL SEE _‘'END-PASS"' 
AT THIS POINT. ALL OF THE REMAINING TESTS REQUIRE 
THE SERVICES OF THE IMAGE MEMORY. 


THE TESTS & DISPLAYS IN THIS SECTION REQUIRE THE SERVICES 
OF THE IMAGE MEMORY AND SYNC GENERATOR MODULES. 


NG RUN_IN 
THE 'DPU ONLY'’ MODE, THESE TESTS MAY NOT (WILL NOT) BE RUN. 
OTHERWISE, THEY WILL BE RUN IN SEQUENCE AS LONG AS THEY 
ARE NOT INHIBITED BY THE TEST SWITCH. 


THE CURSOR POSITION REGISTERS, JOYSTICK STATUS ENABLES 
THE "“SOFT** SWITCH, SWITCH INTERRUPT AND MATCH INTERRUPT 
ARE TESTED FOR EACH AVAILABLE SYNC GENERATOR CHANNEL. 


ee ae 
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6.2.1 


6.2.2 


6.2.3 


6.2.4 


GRAPH PLOT ALL X POINTS BETWEEN 200 AND 1600 (IN 30 
UNIT sew wg USING nt — OF Y INCREMENT. 


e 


x 230, Y INCR 4 


x 1600, Y_INCR 76 
THEN REPLOT EACH POINT IN _HISTOGRAM MODE TO A RELATIVE 
BASE LINE WHERE BASE = X-20. 
THE X AND Y POSITION REGISTERS ARE TESTED AS EACH POINT 
IS PLOTTED (IN BOTH MODES). 


IF RUNNING ‘DPU ONLY'’ MODE, THIS AND ALL FOLLOWING TESTS 
ARE NOT RUN. 


VERIFIES THAT BIT MAP MODE 1 FUNCTIONS CORRECTLY FOR 

ALL POSSIBLE RUN LENGTHS (0 TO 511.) AND IN BOTH 4 BIT 
AND 8 BIT PIXEL MODES. 

A 256 WORD BUFFER IS FILLED WITH THE VALUE 000377, WHICH 
WILL YIELD A 2 ON, 2 OFF PATTERN OF 4 BIT PIXELS AND/OR 
A 1 ON, 1 OFF PATTERN OF 8 BIT PIXELS. 


THE X AND Y POSITION IS VERIFIED AT THE END OF EACH 
BIT MAP OPERATION. 


VERIFIES THAT BIT MAP MODE 0 FUNCTIONS 
CORRECTLY IN ALL ITS VARIATIONS. 


SEQ 0014 


co + eee CS —— — — - — 
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| SEQ 0015 
| 


a einneapine as 
737 6.2.5 TEST 28. IMAGE MEMORY CLEAR/SET 
ewe a ee ee 

| 740 NOTE: THIS TEST AND THE ONE FOLLOWING REQUIRE THE 

741 SERVICES OF THE PIXEL-READ-BACK FUNCTION. 

| 743 VERIFIES THAT THE IMAGE MEMORY “‘CLEAR TO ZERO'' AND 
244 "SET TO DATA’ INSTRUCTIONS FUNCTION CORRECTLY. 
245 (1) THE IMAGE MEMORY IS ''CLEARED'’ AND SELECTED 
746 PIXELS ARE READ-BACK AND VERIFIED 


(2) THE IMAGE MEMORY IS ‘'SET TO ALL 1°S‘' AND 
SELECTED PIXELS READ-BACK AND VERIFIED. 


IN *'SHORT a # TEST ALL X ADDRESSES FOR Y = 0 AND 2 
EN VS 0 THEN TEST ALL Y ADDRESSES FOR X = 0. 
IN "LONG MODR!, TEST ALL PIXEL ADDRESSES. 


NOTE: PART 2 OF T TEST FILLS THE IMAGE MEMORY WITH 
ALL 1°S. THE VIEWIN@AREA SOULD BE ALL WHITE -- ANY 
loan MEMORY LOCATIONS OR 








6.2.6 TEST 29.  INTERLACE 






CHECK FOR MEMORY INTERLACE BY WRITING A HORIZONTAL, EVEN 
NUMBERED LINE, AND CHECKING THAT BACK THE ‘LINE’ ABOVE THE ONE 
WRITTEN READS BACK AS ZERO. 


IES THAT A GIVEN PIXEL CAN BE SET TO ALL POSSIBLE 
INS, AND THAT THE READ-BACK FUNCTION CAN 


BIT INATIO! 
CORRECTLY READ THAT DATA. 
sea "LONG’’ MODE OPTIONS APPLY AS BEFORE. 


6.2.8 ee Yak per guetr 


RUNS AS A BLANK TES 





| 
| 
| 
| 


D2 
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6.2.9 


6.3 


6.3.1 


SEQ 0016 








THIS TEST PROVIDES ONE TEST PATTERN IN WHICH ALL 
GRAPHICS FUNCTIONS ARE EXERCISED: 


1. CHARACTERS AT BOTTOM CENTER. 
EDGE CLIPPING AT LOWER LEFT AND UPPER RIGH§. 
THREE OCTAGONS USING LONG VECTORS (LARGE 0 
SHORT VECTORS (2 SMALL ONES), AND SOME 
RELATIVE POINTS INSIDE THE SMALL ONES. 

4. GRAPH-HISTOGRAM Y AT UPPER LEFT. 

5. GRAPH-HISTOGRAM X AT LOWER RIGHT. 

6. BIT MAPS == MODE 1 AT BOTTOM, MODE 0 AT TO! 
7. A CIRCULAR VECTOR SWEEP AT CENTER, SHOWING 
8 
9 


wr 
ee 


COLOR/INTENSITY LEVELS. 
. A PERIMETER OUTLINE OF THE DISPLAY. 
. STATIC FOR 2 SECONDS, THEN BLINKING FOR 2 SWMONDS. 


THE TESTS AND ROUTINES IN THIS SECTION ARE STAND-ALONE : 
THEY ARE NOT INCLUDED IN THE NORMAL TEST SEQUENCE AND 
MUST BE RUN BY UNIQUE START COMMAND 


IE. START/TEST:NN<CR> OR RESTART/TEST:NN<CR> 


THIS IS A TEST FRAME FOR THE JOY-STICK, AND INCLUDES 

3 NESTED BOXES(CO-ORDINATES LABELED), AND AN IN-LINE 
READ-OUT OF THE CURRENT JOY-STICK POSITION. 

MB Nye INTERRUPT IS MARKED BY AN ‘'X'' AT THE CURRENT 
cO- ° 

A 'MATCH’’ INTERRUPT (ON THE BOXES ONLY) IS MARKED BY 

AN X AS ABOVE, AND BY THE WORD ‘MATCH'' DISPLAYED AT 
UPPER RIGHT. 


—_ -——_-—_—_--_-——_ 


S RRRARRRRRE RE 
WR ODOONAUEW 


6.3.2 


6.3.3 


7.0 


-NLIST 
» DSABL 


THIS IS 
SET-UP. 


. 
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A PATTERN GENERATOR FOR COLOR MONITOR CONVERGENCE 
IT INCLUDES THE FOLLOWING PATTERNS SELECTABLE BY 


THE USER AT WILL. 


HS SOD NAUSWWM—O 


WrH-oO 


"TYPE THIS** (ON CONSOLE) 
TURN ON BLINKING 

TURN OFF BLINKING 

COLOR BARS 

7 X 7 DOTS 

7X7 CROSSHATCH 

PERIMETER OUTLINE 

BASIC — ID 


GUNS | 

ALL WHITE SCREEN 

ALTERNATING WHITE SCREEN & PERIMETER OUTLINE 
ALL RED SCREEN 

ALL BLUE SCREEN 

ALL GREEN SCREEN 


OUTLINE INCLUDES 3 ‘DOTS''. SELECTIONS 3, 7 AND 8 


INCLUDE A SOLID WHITE PERIMETER OUTLINE. 


PROGRAM 


BEX 
GBL 


LISTING FOLLOWS: 


SEQ 0017 


-. 
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= 
S 
| PROGRAM HEADER SEQ 0018 
| 892 .SBTTL PROGRAM HEADER 
894 .MCALL SVC 
89 000000 SVC : INITIALIZE SUPERVISOR MACROS 
897 j MUXRMUAAANAAAAAERAUALEAAELERIA LAELIA ES LLL LLLLLAALAALALALAAAAA A 
898 : IF STRUCTURED MACROS ARE TO BE USED, YOU MUST ADD 
899 ; REQ  SPMAC.SML (OR THE CURRENT EQUIVALENT) 
900 : “MCALL STRUCT 
4 : STRUCT 
903 000001 SVCGBL= 1 : LIST GLOBAL TAGS AT RIGHT MARGIN. 
904 000001 SVCTST= 1 : DITTO TEST TAGS. 
905 000001 SVCSUB= 1 ; DITTO SUBTEST TAGS. 
906 000001 SVCTAG= 1 : DITTO ANY OTHER TAGS. 
907 000001 SVCINS= 1 : DITTO INSTRUCTIONS AND DATA. 
909 ; THESE SYMBOLS CONTROL THE LISTING FIELD OF ALL SVC MACRO 
910 : EXPANSIONS. YOU MAY CHANGE THEM AT ANY TIME OR PLACE. 
912 : 1 = RIGHT-JUSTIFY (MAKES IT EASY TO DISTINGUISH 
913 : SVC'S MACRO CODE FROM YOUR OWN). 
eis : a = Side te tI Pro A ear FASHION) . 
916 8 AT IOI IOUT OCCU IIA IION IIIA 
918 .ENABL ABS,AMA 
919 002000 = 2000 
920 . i++ 
921 * THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
ose > THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
924 : 
925 174561 PRGSIZ= <L$LAST>/16. : PROGRAM SIZE IN 1/8 K UNITS (OCTAL). 
926 000000 SVCGBL= 0 : ALIGN THE HEADER STUFF. 
927 000000 SVCINS= 0 
929 002000 POINTER BGNSW,BGNSFT,BGNAU,BGNDU,BGNRPT 
930 002000 HEADER CVVSA.A,0,655., 
002000 LSNAME : : = DIAGNOSTIC NAME 
002000 103 -ASCII /C/ 
002001 126 “ASCII /V/ 
00 126 “ASCII /V/ 
002003 123 “ASCII /S/ 
002004 101 ASCII /A/ 
002005 000 BYTE 0 
002006 000 BYTE 0 
002007 000 BYTE 0 
002010 LSREV:: sREVISION LEVEL 
002010 101 -ASCII. /A/ 
002011 LSDEPO:: 0 
002011 060 -ASCII /0/ 
002012 LSUNIT:: :NUMBER OF UNITS 
002012 000000 .WORD 0 
002014 LSTIML:: :LONGEST TEST TIME 
002014 001217 .WORD 655. 


002016 L$HPCP: : POINTER TO H.W. QUES. 


| G 2 
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PROGRAM HEADER 


002240 
002522 
002224 
002502 
113404 
000000 
000000 
000000 
000000 
106760 
000000 
000000 
000000 

3 
pescs 
000060 
002162 
033272 
000000 
000000 
033012 
033110 
000000 
002122 
104035 
000000 
032014 
033220 


LSSPCP: 
LSHPTP: 
LSSPTP: 
LSLADP: : 
LSSTA:: 


LSCcO:: 


LSDTYP: 
LSAPT:: 
LSDTP:: 
LSPRIO: 
LSENVI: 
LSEXP1: 
LSMREV: 


LSEF:: 


L$SPC:: 
LSDEVP: 
LSREPP: 
LSEXP4: 
LSEXPS: 
LSAUT:: 
L$DUT:: 
LSLUN: : 
L$DESP: 
L$LOAD: 


LSETP 
L$ICP 
L$CCP 


. WORD 
* WORD 
* WORD 
* WORD 
* WORD 

. WORD 

. WORD 
* WORD 

. WORD 

. WORD 
* WORD 
* WORD 
"WORD 


" BYTE 
"BYTE 


. WORD 
. WORD 


. WORD 
* WORD 
* WORD 
* WORD 
* WORD 

. WORD 

. WORD 

. WORD 
* WORD 
“EMT 

WORD 

. WORD 

. WORD 


SEQ 0019 
L$HARD 
POINTER TO S.W. QUES. 
LSSOFT 
PTR. TO DEF. H.W. PTABLE 
L$HW 
;PTR. TO S.W. PTABLE 
L$SW 
DIAG. END ADDRESS 
L$LAST 
0 RESERVED FOR APT STATS 
0 
0 ;DIAGNOSTIC TYPE 
APT EXPANSION 
PTR. TO DISPATCH TABLE 
L$DISPATCH 
;DIAGNOSTIC RUN PRIORITY 
FLAGS DESCRIBE HOW IT WAS SETUP 
EXPANSION WORD 
;SVC REV AND EDIT # 
C$REVISION 
CSEDIT 
0 :DIAG. EVENT FLAGS 
0 
0 
; POINTER TO DEVICE TYPE LIST 
L$DVTYP 
PTR. TO REPORT CODE 
L$RPT 
0 
0 
PTR. TO ADD UNIT CODE 
L$AU 
PTR. TO DROP UNIT CODE 
L$DU 
0 LUN FOR EXERCISERS TO FILL 
;POINTER TO DIAG. DESCRIPTION 
LS$DESC 
GENERATE SPECIAL AUTOLOAD EMT 
E$LOAD 
0 ;POINTER TO ERRTBL 
PTR. TO INIT CODE 
LSINIT 
zPTR. TO CLEAN-UP CODE 
LSCLEAN 


{ 

H_ 2 
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| PROGRAM HEADER 

| 


SEQ 0020 
00211 L$ACP:: sPTR. TO AUTO CODE 
002110 033216 .WORD LS$AUTO 
002112 LSPRT:: zPTR. TO PROTECT TABLE 
002112 032004 .WORD LS$PROT 
002114 LSTEST:: ; TEST NUMBER 
002114 000000 «WORD 0 
002116 LSDLY:: sDELAY COUNT 
002116 000000 -WORD 0 
002120 LSHIME:: ;PTR. TO HIGH MEM 
002120 000000 -WORD 0 
931 002122 DESCRIPT <**** VSV11-VS11 DIAGNOSTIC ****> 
002122 LSDESC:: 
002122 052 052 052 ake {eee VSV11-VS11 DIAGNOSTIC ****/ 
EV 
932 002162 DEVTYP <vSV11=VS11, AND DISPLAY MONI TOR> 
002162 ; LEDVTYP:: 
002162 126 123 126 ory /VSV11=VS11, AND DISPLAY MONITOR/ 
EV 
933 
934 000001 SVCGBL= 1 ; SHOVE EVERYTHING BACK TO THE RIGHT. 
935 000001 SVCINS= 1 
936 177777 SVCGBL=~1 : KILL ALL SVC STUFF. 
937 177777 SVCTST==1 
} SVCSUB=-1 
939 177777 SVC TAG==1 
940 177777 SVCINS=-1 


bo) 
w 
oo 
dt 
N 
N 
N 
N 

N 


ero 


vVr——————— 


P 002222 
ees 002224 
oS 002226 
3a 002230 
956 002232 
957 002234 


958 
959 002236 


Wet 


172010 
000320 


I 
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DEFAULT HARDWARE P-TABLE 


-SBTTL DEFAULT HARDWARE P=TABLE 


ed 


+ THE DEFAULT HARDWARE ©=TABLE CONTAINS DEFAULT VALUES OF 


; THE TEST=DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
B IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P=TABLE. 


BGNHW DFPTBL ;DEFAULT HARD=-P=-TABLE 
.- WORD 172010 y TST " 4) REGISTER(S). 

s 7 IF LUT INSTALLED ). 
~WORD 320 gs TST (OF 4) VECTOR(S) 

Fy ‘> i Lui INSTALLED Fi 
.~ WORD PRI04 é INTERRUPT PRIORITY. 
~ WORD 0 ; LUT AVAILABLE (IF NONZERO) 
-WORD 0 ; SYNC FREQUENCY: O = 60HZ 

é NZ = 50HZ 
ENDHW 


SEQ 0021 


— LL ttt tt 
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VSV11/VS11 == GRAPHIC SYS. DIAG MA 
HARDWARE PARAMETER CODING SECTION SEQ 0022 
9! .SBTTL HARDWARE PARAMETER CODING SECTION 
96 y+ 
964 t THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
| 965 : THAT ARE USED BY THE SUPERVISOR TO BUILD P=TABLES. THE 
966 t MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
967 + INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
948 + MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNI CATIONS 
969 : WITH THE OPERATOR. 
971 002236 : @GNHRD 
973 002240 GPRMA -4PM1,0,0,160000,177776. YES ;GET 1ST REGISTER ADDRESS. 
2,0,0,776, YES :GET 1ST VECTOR ADDRESS. 
4,0,340,0.7,YES :GET INTERRUPT PRIORITY. 
GPRML 6.-1,YES TASK IF LUT AVAILABLE 
002 GPRML -HPMS.10,=1. YES TASK IF FREQUENCY = 50 HZ. 
78 002 EXIT HRD 
979 002310 106 126 MPM: ASC 


/1ST INTERRUPT VECTOR 
: 7INTERRUPT PRIORITY 
982 002420 124 HPM4: eASCIZ /LUT INSTALLED 

983 002450 105 HPMS: eASCIZ /FREQUENCY = SOHZ 


984 
985 002500 ENDHRD 


g 
S 
. 
8 


HR 
: /DEVICE ADDRESS 
Z 


we a 


eee 
ONAUS WI 
238 
ays 
re 

9 
nh 
3333 


BB: 


-—- saiciacitnciansinis 
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SOFTWARE P-TABLE 


000000 


000000 
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SEQ 0023 


.SBITL SOFTWARE P-TABLE 


++ 
> THE SOFTWARE P=-TABLE CONTAINS THE VALUES OF THE PROGRAM 
; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


BGNSW SFPTBL 
DPUMOD:: .WORD 0 m0 = RUN oy MODE... 


«NZ = UN. DPU ONL Y 
IMTMOD:: .WORD 0 lace MEMORY TEST MODE... 
Q = SHORT TEST... 
NZ 2 LONG TEST. 
TIDFLG:: .WORD 0 TEST ID'S.. 


eee Se. = Tye T TEST ID AT EACH TTET START. 
INHIBIT ITERATION OPTION. 
QO = ITERATE. 


".NZ = INHIBIT ITERATE. 
MANUFACTURING TEST MODE... 
.. 0 = USER/FIELD SVC... 

NZ = MANUFACTURING. 
“LOCAL (PER TEST) ERROR LIMIT 
GLOBAL (PER UNIT) ERROR LIMIT 


NOITS:: .WORD 0 


MFGFLG:: .WORD 0 


LERRMAX: : -WORD 25. 
GERRMAX: : -WORD 200. 


——— 


—————————————--————“ 


j . ¢ 
vSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113 29-JAN-81 17:22 PAGE 21 


SOF TWARE PARAMETER CODING SECTION SEQ 0024 
+t? .SBTITL SOFTWARE PARAMETER CODING SECTION 
1017 ++ 
1018 = : THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
1019 + THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
1020 : MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
1021 : INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
1022 : MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNI CATIONS 
1023 : WITH THE OPERATOR. 
1024 = 
1025 002520 
1026 002522 GPRML SPM1,0,~-1,YES ; GET OPTIONAL DPU ONLY FLAG. 
1027 002530 GPRML SPM2,2,-1,YES ; GET MEM TEST MODE. 
10. ;GPRML SPM3,4,~-1,YES ; GET TEST ID CONTROL. 
1029 002536 GPRML SPM4 6,71, YES : GET ITERATION CONTROL. 
1030 002544 GPRML  SPM5,10,-1,YES : GET MANUFACTURING MODE. 
1031 002552 GPRMD SPM6,12,D,7777,0,7777.YES ; GET LOCAL ERROR LIMIT 
1032 002564 GPRMD SPM7,14,D,7777,0,7777.,YES ; GET GLOBAL ERROR LIMIT 
1033 002576 EXIT SFT 
1034 C02600 122 125 116 SPM1: -ASCIZ /RUN DPU TESTS ONLY / 
1035 002630 114 117 116 SPM2: -ASCIZ /LONG MEMORY TESTS / 
1036 :SPM3: .ASCIZ /INHIBIT TEST ID'S / 
1037 002660 111 116 110 SPM4: ASCIZ /INHIBIT ITERATIONS ¥ 
1 00271 115 101 116 SPMS5: -ASCIZ /MANUFACTURING MODE / 
1039 002740 120 105 122 SPM6: -ASCIZ /PER TEST ERROR LIMIT / 
1040 00277 120 105 122 SPM7:  .ASCIZ /PER UNIT ERROR LIMIT / 
1041 003020 ENDSF T ; UNUSED. 





| M 2 
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GLOBAL EQUATES SECTION SEQ 0025 
1043 -SBTTL GLOBAL EQUATES SECTION 
1944 
1045 p++ 
1046 ; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
1047 ; ARE USED IN MORE THAN ONE TEST. 
1048 ~~ 
1049 
1050 003020 EQUALS ; GET STANDARD EQUATES. 
; BIT DIFINITIONS 
100000 BIT15== 100000 
040000 B1T14== 40000 
020000 BIT13== 20000 
010000 BIT12== 10000 
004000 BIT11== 4000 
002 BIT10== 2000 
001000 BITO9== 1000 
000400 BITO8== 400 
2 BITO7== 200 
BIT06== 100 
000040 BITO5== 40 
000020 BIT04== 20 
000010 BITO3== 10 
000004 BITO2== 4 
000002 BITO1== 2 
000001 BITOO== 1 
001000 BIT9== BITO9 
BIT8== BITO8 
000200 BIT7== BITO7 
000100 BIT6== BI1T06 
000040 BIT5== BI1TOS 
000020 BIT4== BIT04 
000010 BIT3== BITO3 
000004 BIT2== BITO2 
000002 BIT1== BITO1 
000001 BITO== BITOO 
; EVENT FLAG DEFINITIONS 
: €EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
000040 EF .START== a. ; START COMMAND WAS ISSUED 
000037 EF .RESTART== iF ; RESTART COMMAND WAS ISSUED 
000036 EF.CONTINUE== 30. ; CONTINUE COMMAND WAS ISSUED 
000035 EF .NEW== 29. ; A NEW PASS HAS BEEN STARTED 
000034 EF .PWR 28 : A POWER-FAIL/POWER-UP OCCURRED 
; PRIORITY LEVEL DEFINITIONS 
00340 PRIO7== 340 
000300 PR106== 300 
000240 PRIOS== 240 
000200 PR104== 200 
000140 PRI03== 140 


000100 PRIO2 
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GLOBAL EQUATES SECTION SEQ 0026 
000040 PRIO1== 40 
000000 PRIQO0== 
OPERATOR FLAG BITS 
EVi== 4 
000010 LOT== 10 
20 ADR== 20 
0 0 IDU== 40 
000100 ISR== 100 
000200 UAM== 200 
00 BOE== 0 
001000 PNT== 1000 
002000 PRI== 2000 
004000 IXE== 4000 
010000 IBE== 10000 
020000 IER== 20000 
040000 LOE== 40000 
ee 100000 HOE== 100000 


VS 


Pid ic ea Met ea a Bese . eS ai ee ERTS Ss Be RS SE 
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VSV11/VS11 == GRAPHIC SYS. DI 
MEMORY MANAGEMENT DEFINITIONS 
1058 .SBITL MEMORY MANAGEMENT DEFINITIONS 
1055 :*kT11 VECTOR ADDRESS 
1057 000250 MMVEC= 250 
1059 :*KT11 STATUS REGISTER ADDRESSES 
1061 177572 SRO= 177572 
1062 177574 SR1= 177574 
1063 177576 SR2= 177576 
1004 172516 SR3= 172516 
wee *KERNEL ‘'I'' PAGE DESCRIPTOR REGISTERS 
1068 172300 KIPDRO= 172300 
1069 172302 KIPDR1= 172302 
1070 172304 KIPDR2= 172304 
1071 172306 KIPDR3= 172306 
1072 17231 KIPDR4= 172310 
1073 172312 KIPDRS5= 172312 
1074 172314 KIPDR6= 172314 
1075 172316 KIPDR7= 172316 
1077 :*KERNEL ''I'' PAGE ADDRESS REGISTERS 
1079 172340 KIPARO= 172340 
1080 172342 KIPAR1= 172342 
1081 172344 KIPAR2= 172344 
1082 172346 KIPAR3= 172346 
1083 172350 KIPAR4= 172350 
1084 172352 KIPARS= 172352 
1085 172354 KIPAR6= 172354 
1086 172356 KIPAR7= 172356 


SEQ 0027 


Seats 


[ot a ee 
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VSV=11 INSTRUCTION EQUATES. 


1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 


SES 


WWWWWWNWIDIPONPNDNDNDNDNNNY 2 2 9 2 PP OP OM HK SK SPOOOCOOCO 


aun Eo 
a 


kk kk ek kk ek a a a od ot hd 2 ot ot 3 2 SS SS oh a I ot a SS a So 
kk kk ek ek a a a ak a a a 8 8 to a st a ot ot a I ot a ss 


SEHK RBRWWS 
WHO OON 


rare 


003374 


003774 


002300 


010000 
002000 


010000 


000100 


136000 
137000 


-SBTTL VSV=11 INSTRUCTION EQUATES. 


“PLOTTING INSTRUCTIONS. 


CHAR== 100000 ; CHARACTER MODE. 

SVEC== 104000 ;SHORT VECTOR MODE. 

LVEC== 110000 ;LONG VECTOR MODE. 

APNT== 114000 ;ABSOLUTE POINT MODE. 

GHX== 120000 ;GRAPH/HISTOGRAM X MODE. 

GHY== 124000 ;GRAPH/HISTOGRAM Y MODE. 

RPNT== 130000 ;RELATIVE POINT MODE. 

PIXEL DATA FIELD <10:2> FOR THE ABOVE OPCODES. 

LO== BIT10 ; LEVEL 0 (BLACK) IS JUST THE ENABLE. 

"he 1 sores ; LEVEL 255 IS THF MAX POSSIBLE. 

ALLB== 3774 ; ALL INTENSITIES (WITH BLINK). 

ALLNB== 3374 : ALL INTENSITIES (WITHOUT BLINK). 

;COLOR DEFINITIONS: 

WHITE == *03774 ; ALL 

GRN1 == *0<400!2000> ; BIT8!LO 

GRN2 == *0<1000!2000> ; BIT9!LO 

GRN3 == GRN1!GRN2 ; BIT8'!BIT9 

REDG == *0<200!2000> : BIT7!LO 

BLUEG == *0<100!2000> =; BIT6!LO 

YELLOW == GRN3!REDG 

EGGBL == GRN3!BLUEG 

VIOLET == GRN2!REDG!BLUEG 

GOLD == GRN2!REDG 

MAGEN == REDG!BLUEG 

; COLOR LOOK-UP-RAM DEFINITIONS. 

LREAD== 1*BIT12 ; CSR -- READ DATA FROM ADDR <7:0>. 

LD]== 1*B1T10 INTERRUPT ON READ/WRITE DONE. 

LSET== 1*BIT12 ; DATA REG -- SET ALL ADDRESSES TO... 
:..-DATA PATTERN IN <11:0>... 
:..-BLU<11:8>, GRN<7:4>, RED<3:0>. 

GCOFF== 1*BIT6 ; MAINT REG -- GAMMA CORRECT OFF. 

CVC== 1*BITS ; COMP VIDEO > MDAC (READ-ONLY). 

REDC== 1*BIT4 : RED DAC > MDAC (READ-ONLY). 

GRNC== 1*BIT3 : GRN DAC > MDAC (READ-ONLY). 

BLUC== 1*BIT2 ; BLU DAC > MDAC (READ-ONLY). 

MDVO== 0O : SET MAINT DAC TO 0.0 V. 

MDVi== 1 3 0.5 V. 

MDV2== 2 : 1.0 V. 

MDV3== 3 : 1.35 v. 

; BIT MAP MODE DEFINITIONS. 

BM14== 136000 ; MODE 1 WITH 4 BIT PIXELS. 

BM18== 137000 : MODE 1 WITH 8 BIT PIXELS. 





r-- —- - -----  ---- 


Ea 


——- 


| 
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vVSV-11 INSTRUCTION EQUATES. 


ARADRAMAMAAGIVD AAI & EES 
WR O DONAUEWWN—-ODOONAW 


ak ee ed a ed ed a a dS 
RAF 


ee a “a tt a a SH SS SI SH 


oO 
N 


a 


000200 


144000 
000100 
000040 
000400 


162000 


RND 
ODDSKP== 


RNLN== 


RLSKIP== 


IMREAD== 162000 


34000 
35000 


0 
0 
0 
0 

00 
00 

200 


144000 


1 
1 
0 
1 
2 
3 
1 
2 
5 
6 
7 
4 


BIT8 


BIT6 


dD 3 
PAGE 24-1 


Be Be Be Be Be Be Be Se Se Be Be Be Fe 


;OP-CODE FOR RUN-LENGTH MODE 


PIXEL COUNT IN <8:0>. 


MODE 0 WITH 4 BIT PIXELS. 
MODE 0 WITH 8 BIT PIXELS. 
2 ape PIXEL ARRAY. 


AR . 
; EXPAND BY 2, NO SMOOTHING. 
; EXPAND BY 4, NO SMOOTHING. 


EXPAND AND SMOOTH BY 2. 
EXPAND AND SMOOTH BY 4. 
256 X 256 RESOLUTION. 


ROUND FOR 8-BIT-WIDE IMAGE MEMORY 
SKIP ODD-NUMBERED LINES ON SCREEN (FOR NON-INTERLACED) ;@wal 


DOUBLE THE PIXEL COUNT 


DISPLAY LINES TOP-TO-BOTTOM 
SKIP LINES, WITHOUT THROWING THE DATA AWAY 


(FOR RUN-LENGTH MODE ONL 
SKIPS EVEN LINES IF STAR 


Y) 
T ON EVEN, & VICE-VERSA 


SEQ 0029 
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VSV=11 INSTRUCTION EQUATES. SEQ 0030 
By CONTROL AND STATUS INSTRUCTIONS. 
1171 146040 CUOFF== 146040 ; CURSOR (JOY- eg VIDEO OFF. 
1172 146060 CUON== 146060 :CURSOR VIDEO ON 
1173 146100 CURD== 146100 :READ JSX,JSY => “DXR,DYR 
1174 146016 CUIM== 146016 S INTERRUPT ON MATCH (SWITCH DISABLED). 
1175 146013 CUIS== 146013 S INTERRUPT ON SWITCH (MATCH DISABLED). 
1176 146012 CUIOFF== 146012 : INTERRUPTS (BOTH) OFF. 
1177 175000 CUWT== 17500 : CURSOR WRITE. 
1178 175000 LDCP== 175000 ; LOAD CURSOR POSITION (=CUWT) 
1179 146000 LDUSS== 146000 ; LOAD JOYSTICK STATUS DISPLAY INSTRUCTION 
1180 175400 LDECC== 175400 ;LOAD_ EXTENDED CURSOR CONTROL 
1181 000002 SWCHON== BITi > SOFT SWITCH ON. 
1182 175401 BLINK== 175401 ; BLINK 
ile? 175400 NBL INK==175400 > NO BLINK. 
1185 000002 JSWE == BIT] ; JOYSTICK SWITCH=ENABLE WRITE ENABLE 
1186 000001 JSWD == BITO ; JOYSTICK SWITCH-ENABLE WRITE DATA 
1187 000010 JMWE == BITS ; CURSOR MATCH=ENABLE WRITE ENABLE 
1188 000004 JMWD == BIT2 ; CURSOR MATCH=ENABLE WRITE DATA 
1189 000040 JCWE == BITS ; CROSSHAIR-INTENSITY WRITE-ENABLE 
itey 000020 JCWD == BIT4 ; CROSSHAIR-INTENSITY WRITE DATA 
1192 
1193 150000 SETHB== 150000 SET GRAPH/HISTO BASE LINE. 
+198 152000 SETCB== 152000 SET CHARACTER BASE ADDRESS. 
1196 160000 DJMP== 160000 ;DISPLAY JUMP. 
1197 160001 DJMS== 160001 DISPLAY JUMP-TO-SUBROUT INE 
1198 164000 DNOP== 164000 ;DISPLAY NO-OP. 
1199 165000 DPOP== 165000 ;DPOP = RTS FROM CHARACTER SUB-PIX. 
1200 164001 SYNC== DNOP+1 :PROCEED IN SYNC = DNOP + N <8:0>. 
1201 :WAITS FOR N OCCURRENCES OF VERTICAL. 
1202 : ite START, THEN PROCEEDS... 
1203 (16.6MS @ 60HZ OR 20MS a 5OHZ) 
‘Sos 000001 AUXSEG== BITO :SPECIFY AUX. SEGMENT IN DISPATCH ADDRESSES. aaa | 
1206 170200 SWTCH== 170200 SWITCH READ/WRITE STATUS. 
1207 170140 CLRMEM== 170140 CLEAR IMAGE MEMORY TO O'S. 
‘os 170100 SETMEM== 170100 :SET IMAGE MEMORY TO CURRENT PIX DATA. 
1210 172000 STOP== 172000 ;DISPLAY STOP. 
1211 171000 SIOFF== 171000 STOP INTERRUPT DISABLE. 
1212 171400 SION== 171400 :STOP INTERRUPT ENABLE. 
1213 173000 STOPN== STOP! SIOFF STOP, DO NOT INTERRUPT. 
sie 173400 STOPI== STOP!SION STOP AND INTERRUPT. 
1216 174100 GXI== 174100 SET X INCREMENT <5:0> FOR GRAPH/HST Y. 
pats 174100 GYI== Gx] 7SET Y INCREMENT <5:0> FOR GRAPH/HST X. 
1219 000001 HCPY== BIT ENABLE HARD-COPY. 
1220 000010 SWE== BITS ENABLE SWITCH RD/WRT. 
1221 176000 PROTEC== 176000 :PROTECT MEMORY (OFF). 
1222 176050 READ== 176040! SWE ;READ MEM (DISPLAY), SWITCH ENABLED. 
1223 176034 WRT== 176024! SWE [WRITE MEM (1°S AND O'S), SWITCH ENABLED 
1224 176036 WRT1== 176026! SWE SWRITE MEM (1°S ONLY), SWITCH ENABLED. 
225 176074 RDWRT== READ! WRT READ, WRITE ALL DURING RETRACE. 


a 
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| VSv=11 INSTRUCTION EQUATES. 


| 1226 176076 RDWRT1== READ! WRT1 
lee? 176051 HCOPY== READ !HCPY 
1229 000000 CHO== 0 
| 1230 000400 CHi== BIT8 
1231 001000 CH2== BITS 
1232 001400 CH3== BIT8!BITS 
1234 000000 JSO== CHO 
1235 00 JSi==  CH7 
1236 001000 JS2==  CH2 
| 1237 001400 J83== (45 


| 


-. 
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;READ, WRITE 1°S DURING RETRACE. 


;READ MEM => HARD COPY DEVICE. 


une SELECT BITS... 
FOR MEMORY CONTROL. 
dee . INSTRUCT IONS (176XXX). 


IO OR CU UNIT SELECT BITS... 
a CURSOR CONTROL. 
SINSTRUCTIONS (146XXX). 


SEQ 0031 


! G 3 
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VSV=11 INSTRUCTION EQUATES. 


! 


010000 


000776 


001776 
000776 


001676 
000736 


000002: 


000002 
006004 


000000 
0 


000014 
000015 


SEQ 0032 

sOTHER USEFUL DEFINITIONS. 

== BIT14 s INTENSIFY VECTOR OR POINT. 
MSX== BIT13 ;MINUS SIGNS FOR.. 
MSY== BIT6 .SHORT FORM VECTOR DATA. 
MXY== BIT13 “MINUS SIGN FOR LONG FORM DATA. 

== BIT13 * ANOTHER MINUS SIGN 
HST== BIT14 ;USE GHX/GHY DATA AS HISTOGRAM. 
CGRPH== BIT13 sUSE GHX/GHY DATA AS CONNECTED GRAPH 
FHST== HST!BIT13 USE GHX/GHY DATA AS FILLED HISTOGRAM (BAR=GRAPH) 
GH] INH== BIT12 ; INHIBIT ERROR DURING PLOT. 
MAXX== 511.*2 ak ta X ADDRESS (512 X 512 X ?). 
MAXY== MAXX TSAME FOR Y. 

HAF X== <MAXX/2>=1 s;HALF MAX : Baycctrc: SCREEN). 

HAF Y== HAF X ; SAME FOR 
MAXY50== *2 :MAX VISIBLE Y ON SOHZ SYSTEM. 
HAF Y50== an HALF VISIBLE Y. 
MAXY60== <511.=-32.>*2 sMAX VISIBLE Y ON 60HZ SYSTEM. 
HAF Y60== <MAXY60/2>-1 sHALF VISIBLE Y. 
DxX== 2 sDELTA X (1 PIXEL UNIT). 

DYI== DX sDELTA Y, INTERLACED MODE. 

DYNI== DX*2 ;DELTA Y, NON-INTERLACED MODF. 

;DSR REGISTER SELECT CODES: 

SELDSR== 0 ELECT REAL DSR 

SELPCS== 1 SELECT PCSAVE 

SELFLG== 2 ;SELECT FLAGS 

SELCSR== 3 ;SELECT CSR 

SELMRR== 4 sSELECT MAIN RELOC 

SELMPM== SELMRR ;SELECT MAIN PROTECT 

SELXRR== 6 sSELECT AUX. RELOC 

SELXPM= SELXRR SELECT AUX. PROTECT 

SEL 5 s SELECT H-BASE 

SELCBA Ya ; SELECT C-BASE 
WE== BIT3 *DSR WRI TE-ENABLE 

SE TMRR==SELMRR! WE SET MAIN~SEG RELOCATION REGISTER TO 0O.. 

.OR a tye ages a TO RELOCATE. 

SE TMPM==15 SET MAINGSEG PROTECTION MASK 

SE TXRR==SELXRR! WE :SET AUX.-SEG RELOCATION REGISTER 

SE TXPM==17 SET AUX.-SEG PROTECTION MASK 
WRTCSR==SELCSR! WE sWRITE THE CSR REGISTER 
CLFLGS==SELFLG! WE ;CLEAR THE FLAGS REGISTER 
SETDSR==SELDSR! WE : SET REAL DSR 

SETCSR==WRTCSR ; SET THE CSR REGISTER. 
SETFLG==CLFLGS : CLEAR THE FLAGS REGISTER. 


pes Gere FOR DXR (BITS 15-14): 
wie 


PI XRBK= 
WRT JSS== 
RSTPOS== 
WRT CPX== 
GT JSSW== 


*BIT14 
3*BI 114 
BIT14 


PIXEL READBACK =~ <15:14>=00 
“WRITE JOYSTICK STATUS REGISTER == <15:14>=01 
RESTORE TRUE X-Y POSITION TO DXR,DYR == <15:14>=10 ;aaa] 
WRITE CURSOR POSITION X=COORDINATE == <15:14>=11 
GET JOYSTICK SWITCH INTERRUPT COORDINATES 


pee 
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vSv=11 INSTRUCTION EQUATES. SEQ 0033 
| 1296 
1297 s"WRITE'’ FUNCTIONS FOR DYR (BITS 15-14): 
1298 + PIXEL READBACK IS THE SAME = 00 
1299 040000 WRIMSR== 1*BIT14 sWRITE MEMORY STATUS REGISTER BA -- <15:14>=01 
| 1300 100000 SINIT== 2*BIT14 “PERFORM ‘'SOFT<INIT'’ == <15:14>=10 
1301 140000 WRICPY== 3*BIT14 ‘WRITE CURSOR POSITION YoCOORD IMATE <= <15:14>=11 
1303 CSR BIT DEF INI TIONS: 
1304 00004 FORCSI== BITS :FORCE STOP INTERRUPT 
| 1305 000100 ENECHK== BIT6 s ENABLE ERROR CHECKING 
1308 000200 are BIT7 s CHANNEL PROTECT 
1308 ‘FLAGS REGISTER BIT POSITIONS: 
1309 000001 PINTRA== BITO :PENDING INTERRUPT, CHANNEL A 
1310 000002 PINTRB== BIT? ‘PENDING INTERRUPT, CHANNEL B 
1311 000004 PVEC2== BIT2 ‘VECTOR BIT 2 FOR INTERRUPT 
1318 01 JSLCKO== BIT3 ‘JOYSTICK INTERRUPT LOCKOUT 
leis : ERROR CODE DEFINITIONS. 
1316 100000 ERR== 100000 : ERROR (COMPOSITE). 
1317 104003 NXME== ERR!4000!SELCSR ; NONEXISTANT MEMORY ERROR. 
1318 114003 MPE== ERR!14000'SELCSR ; MEMORY PROTECTION ERR 
1319 124003 RSVDOP== ERR!24000!SELCSR ; RESERVED OPCODE, EE SERVED OPERATION. 
1320 120003 SEQERR== ERR!20000!SELCSR : SEQUENCE ERROR. 
1321 140003 SYNCTO== ERR!40000'SELCSR ; SYNC TIMEOUT FROM IMAGE MEMORY. 
1322 144003 DAVTO== ERR!44000'SELCSR ; DATA AVAILABLE TIMEOUT (PIXEL READBACK). 
1325 150003 DRDYTO== ERR!S5O0000!SELCSR :; DATA READY TIMEOUT (JOYSTICK STATUS). 
1329 :DXR, DYR BITS 
1327 010000 CHIE ==B]112 ; CROSSHAIR INTENSITY ENABLE STATUS (1=O0N) 
1328 010000 JSMIES = =B1T12 > JOYSTICK MATCH INTERRUPT ENABLE STATE 
1329 004000 JSSIES ==BIT11 > JOYSTICK SWITCH INTERRUPT ENABLE STATE 
1330 042000 wJSS ==B]114'B1T10 : WRITE JOYSTICK STATUS REGISTER 
133) 160000 wECC ==160000 : WRITE EXTENDED CURSOR CONTROL 
1333 
1334 : 
Ht +24 >SOME HANDY -11 OPDEF'S. 
1337 000403 SKP3= BR+3 :SKIP NEXT 3 WORDS. 
1338 000402 SKP2= BR+2 *SKIP NEXT 2 WORDS. 
1339 000401 SKP1=  BR+1 :SKIP NEXT WORD. 
1340 000400 SKPO= BR+0 :SAME AS A NOP. 
1342 3 
1343 > SOME GENERAL EQUATES. 
1344 ; 
1345 
1346 000004 ERRVEC==4 : POINTER TO ERROR VECTOR FOR BUS TIME OUT. 


= od 
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' SPECIAL MACROS AND OPDEFS. SEQ 0034 
Nh 2s .SBTTL SPECIAL MACROS AND OPDEFS. 
132) 000000 EN=0 : INITIALIZE ERROR NUMBER 
1353 : MACRO TO XCT MEMORY SETUP FUNCTIONS (STAT C INSTRUCTIONS) 
1354 + VAILD FUNCTIONS ARE: 
1395 + PROTEC, READ, WRT, WRT1, RDWRT, RDWRT1, HCOPY. 
1357 .MACRO SETUP FUNC,N17 “Ne. N3,N4 
| 1358 "TIF NB <Ni>,  FUNC!CH'NT 
1359 .IIF NB <N2>, FUNC ICH" NO 
1300 .1IF NB <N3>, ~~ FUNC! CH'NS 
1361 .1IF NB <N4>, FUNC! CH'NG 
| 1362 "ENDM SETUP 
| 1364 : MACROS FOR ASSEMBL ING VECTOR DATA. 
1365 : CALLING ARGUMENTS ARE: 
1366 : = INTENSIFY BIT, “‘I'' OR ‘U"’. 
1367 : rs = DELTA X, +/-0 THRU 1776 (76 IF SHORT TYPE). 
‘ace ; C = DELTA Y, DITTO 
1370 -MACRO SXY A,B,C :ASSEMBLE SHORT (1 WORD) DATA. 
1371 .1 = 40000 
1372 .DX = B*200 
1373 .DY = 
1374 .IIF IDN <U> <A>, 0 
1375 "IIF LT B, .DX = <-B*200>!20000 
1376 .IIF tT C, .DY = <-C>!100 
1377 "WORD .1!.DX!.DY 
1378 ENDM  SXY 
1379 
1380 -MACRO LXY A,B,C :ASSEMBLE LONG (2 WORDS) DATA. 
1381 .I = 40000 
1382 .DxX =B 
1383 Dy = C 
1384 -IIF IDN <U> <A>, .I = 0 
1385 -IIF LT B, .DX = <-B>!20000 
1386 TIF LT C, .DY = <=C>!20000 
1387 WORD .I!.DX, .DY 
1388 .ENDM so LXY 


ox 
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| SPECIAL MACROS AND OPDEFS 


3; MACROS TO STANDARDIZE THE INITIALIZATION OF io TEST. 
; PROVIDES AN ASCIZ TITLE STRING, AND POINTER FOR 

; SUBSEQUENT PRINTING (IF REQ'D) VIA ‘PRINTF TNAM,TNUM’’ CALL. 
; ALSO INITS A SEQUENTIAL ERROR NUMBER SEQUENCE, AND 

; SETS AN ITERATION COUNT FOR THE CURRENT TEST. 


-MACRO BEGIN. TEST TEXT,LK,?TAG1, ?7TAG2 
-RADIX 10 
TSTITLE \TN*1,<TEXT>,<LK> 


R 
NIST 
LIST MC 
ST 
BGNTST 
TN=TSTESTNUM ; TEST NUMBER 
EN=TN*100. ; INIT ERROR NUMBER SEQUENCE . 


-11F B <LK>, MOV #1,LOOPK ;DEFAULT = 1. 
-1]F NB <LK>, MOV #LK,LOOPK 
:SET TEST NUMBER... 
-AND NAME POINTER. 
BR TA Skip OVER THE ASCII. 
3TAG1: .ASCIZ \2NZATEST 2D2%A: TEXT\ 
TAG1: eASCIZ \RA_ TEXT\ 


TAG2: 
-ENDM BEGIN.TEST 


+ THIS MACRO IS USED BY MACRO ‘BEGIN.TEST’’ MACRO, ABOVE. 


«MACRO TSTITLE A,ASCI,1 
-SBTTL ee TEST °A° ASCI 
«NLIST 

-LIST ME 

LIST 


FARRAR AAAAAEREAAAAEREREE AAO RAEAEREERAHEHEAEAREREREAREHAOHEHHELESEREOEe 
.-2 


ie BEGIN TEST ‘A’ = ASCI 
se eerenrerenenenarenareeseetaneekeeraneaanaaneenanaenaaneaaanseseneetee 


; CITERATION COUNT = |) 


-ENDM - TSTITLE 
S MACROS TO STANDARDIZE THE END OF EACH TEST. 


-MACRO END.TEST 
«NLIST 
«RADIX 10 





SEQ 0035 


[a 


--———_ 


«NLIST MC 


TST 
.ENDM 
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\TN 


END. TEST 


t THIS MACRO IS USED BY “END. TEST’’ MACRO, ABOVE. 


Be Be Be Be Be 


-MACRO 


ENDIN A 


eI REE ERR ERE REE EER EEE EERE EERE RAE RARER 


END TEST ‘A’ 


. ENDM 


Be ee He IT Ke Te FT TOTTI TOT TORTS TOTTI TOTTORI TTT RR EER EERE EER EEE Ee 


ENDTN 


MACROS TO DEFINE SEQUENTIAL ERROR NUMBERS FOR 
SUBSEQUENT SUPERVISOR ERROR CALLS, 
REQUIRES PRIOR USE OF ‘BEGIN. TEST! MACRO. 


SFERR ADDR,PNTR ; SYSTEM FATAL. 


PC, INCERK 
EN,ADDR,PNTR 
PC, CKDROP 
SFERR 


DFERR ADDR,PNTR,CK ; DEVICE FATAL. 


PC, INCERK 
EN, ADDR,PNTR 
PC, CKDROP 


DFERR 
SFTERR ADDR,PNTR,CK : SOFT ERROR. 
PC, INCERK 


EN,ADDR,PNTR 
PC, CKEMAX 


SF TERR 
HRDERR ADDR,PNTR,CK ; HARD ERROR. 


SEQ 0036 


i 


VSV11/VS11 == GRAPHIC SYS 
SPECIAL MACROS AND OPDEFS 


at ad 
Ssy 
RAR 


oO 
N 


— a td os a od od ot I 


KREWAS 
MO 0O~N 


vw 
ah 
ew 


ee 
ee 
me ek ee a a es oe a as 1 So SS 


RW 


OOONAW 
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PC, INCERK 
EN,ADDR,PNTR 
PC, CKEMAX 
NB, CK 


HRDERR 


: MACRO = DO SOME COMMON STUFF AT THE BEGINNING OF A TEST. 
«MACRO COMBEG 


-NLIST ME 
. ENDM 


PC,TSTGO ; TITLE. 
PC,DPRESET ; DO SOFT INIT. 


COMBEG 


> MACRO = DO SOME COMMON STUFF AT THE END OF A TEST. 
-MACRO COMEND TAG,?L,?X 


- ENDM 


on ; REPEAT ‘TIL LOOPER EXPIRES. 

X 

TAG 

PC, TSTEND ; PRINT ERROR SUMMARY, IF REQ'D. 
COMEND 


> MACRO TO CONTROL ITERATION LOOPS. 


-MACRO 


LOOPTO TAG 


PC,LOOP 
TAG 


LOOPTO 


SEQ 0037 


mM 3 
| ySV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113 29-JAN-81 17:22 PAGE 29-3 
SPECIAL MACROS AND OPDEFS. SEQ 0038 


: MACRO = WRITE FROM SPEC'D DATA SOURCE INTO SPEC'D DSR ACCESS REGISTER. 
1564 ; ol a FLG, CSR, MRR, MPM, XRR, XPM ARE VALID ARGUMENTS FOR ‘DSRREG'". 


1567 «MACRO WTDSRA DATSRC,DSRREG 


T 
1571 «NTYPE .NT,DATSRC 
1572 IF EQ, .NT&*077~-*027 
1573 MOV DATSRC&*C17!SET'DSRREG, @DSR 


1575 MOV #SET'DSRREG',RO ; WRITE DATSRC INTO DSRREG . 
1576 BIS DATSRC ,RO 
1577 MOV RO,a@DSR 
1578 -ENDC 
-NLIST 
1580 -NLIST MEB 
-LIST 
1582 -ENDM WTDSRA 


= MACRO - READ FROM SPEC'D DSR ACCESS REGISTER INTO SPEC'D DATA DESTINATION. 
: ONLY DSR, PCS, FLG, CSR, MRR, MPM, XRR, XPM, HBA, CBA ARE VALID 

; ‘'DSRREG'’ ARGUMENTS. 

; RO=WORK. 


1590 -MACRO RDDSRA_ DSRREG,DATDST 


— 
Vv) 
co 
N 
er ee ee ee) 


1594 MOV #SEL*DSRREG' ,a@DSR ; READ DSRREG INTO DATDST . 
of a MOV @DSR,DATDST 


1599 2 .ENDM RDDSRA 


1602 > MACRO - IF R1=R2, BRANCH TO OK, ELSE CALL HARDWARE ERROR. 
1604 -MACRO IFERROR ARG1,ARG2,?0K$,CK 


CMP R1,R2 ; OK? 
BE OK$ S VES. 
HRDERR ARG1,ARG2,(K ; NO. 


IFERROR 


wl od a ah a end es ed 
AXRARAAAO 
aad aa an cach on ool and all 
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SPECIAL MACROS AND OPDEFS. 


MACRO = IF R1=R2 AND R3=R4, BRANCH TO OK, ELSE CALL HARDWARE ERROR. 
«MACRO IFERRX2 ARG1,ARG2,?70K$,7ERR,CK 


«NLIST 

«LIST ME 

»LIST 
CMP R1,R2 3; 1ST ITEM OK? 
BNE ERR : NO. 
CMP R3,R4 ; 2ND ITEM OK? 
BEQ OK s YES. 

ERR: HRDERR ARG1,ARG2,(K ; NO. 

-NLIST 

«LIST ME 

-LIST 


OK$: 
-NLIST ME 


-ENDM ~=IFERRX2 


> MACRO = SOFTWARE INITIALIZE THE DPU. THIS DIFFERS FROM ‘DPINIT’’ 
: IN TWO WAYS. FIRST, IT IS ASSUMED THAT THE DPU IS STOPPED AND 
; NOT HUNG UP, SECOND, NO CHECKING IS DONE BY THIS CODE. 


«MACRO INITDP 


eNLIST 
rere! ME 

JSR PC. DPINIT ; GO DO SOFT INIT, CHECK THE STATE. 
NLIST 
NLIST ME 
-LIST 

-ENDM = INITDP 

CRO DPSTART ADRS 

NLIST 
rar ME 

MOV ADRS, _ ; START THE DPU 

JSR PC WAIT ; WAIT FOR DISPLAY STOP. 


-ENDM  DPSTART 


«MACRO DPCONT 


NLIST 
LIST ME 
BIS #B1T0,aDPC 3 CONTINUF THE DPU. 
JSR PC ,WAITF ; WAIT FORK DISPLAY STO. 


SEQ 0039 


VS 


-—---—- 


06 
07 


aaaa 
S& 


NNNNNNWN NNN NN NNN NN NNON 
NONGNONONONIDNDNN 2 SO 
AUSWM 0 OONAUSWH-O 


N 
WW 
—OO0OnN 
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.ENDM — DPCONT 
;MACRO TO DO A 3-OPERAND BIT-SET: 
MACRO BISW3 $1,S2,DST 
.NLIST 
LIST MER 
-NTYPE .NT.DST 
IF EQ, .NT&*070 
mov $2, DST 
BIS $1, DST 
FF 
MOV $2, =( SP) 
BIS $1, (SP) 
MOV —s- (SP) +, DST 
-ENDC 
.NLIST 
“NLIST MEB 
-LIST 
.ENDM BISW3 
:MACRO TO DO A 3-OPERAND BIT=CLEAR: Aes 
MACRO BICW3 $1,S2,DST ¥ $< 
»NLIST a? 
:LIST MEB 
.NTYPE .NT,DST 
IF EQ, .NT&*070 
hv —-§2:08T 
BIC $1,DST 
o IFF 
MOV —- $2,=(SP) 
BIC $1, (SP) 
MOV —- (SP) +, DST 
-ENDC 
NLIST 
NLIST MEB 
LIST 
.ENDM BI CW3 
;MACRO TO SET UP THE INTERRUPT MASK AND PRIME THE INTERRUPT FLAG: 
.MACRO. INTSET EX 
NLIST 
LIST MEB 
NLIST ME 
-LIST 
IF NB, IEX 
Moy —_-#°0177400! 1OKCKIN! 1K" IEX, INTMASK ; PRIME FLAG, EXPECT IEX 
MOV, #*0177400! LOKCKIN, INTMASK ; PRIME FLAG, NO INTR. EXPECTED. 
. N 


-ENDM ~—INTSET 


Om 
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WwW 
WwPro 


«MACRO FORRTI 


FPP PPR D 
BIRAS 


1 

: 

1 

1 

1 

1 NLIST 

1 -LIST ME 

1739 -LIST 

1740 MOV #.+6, (SP) ; FORCE RTI RETURN TO = 
1741 RTI 3 > NEXT LOC. 
1742 «NLIST 

1743 «NLIST ME 

1744 LIST 

1745 -ENDM = FORRTI 


+ MACRO TO FORCE IN-LINE RETURN FROM REAL OR IMAGINED INTERUPT. 


SEQ 0041 


LS 


D 
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USER PATCHABLE FLAGS SEQ 0042 
1747 .SBITL USER PATCHABLE FLAGS 
1748 
1749 5 
1750 + THE FOLLOWING LOCATIONS MAY BE PATCHED pg THE USER 
1751 : TO OBTAIN THE RESULTS DESCRIBED FOR EAC 
1588 ; 
1754 003020 000000 FORCER: 0 : FORCE TYPE ALL HARD ERRORS (THE ONES CALLED - 
1755 : = BY THE MACRO "'IFERROR’'). AN ERROR NEED NOT - 
fae : + EXIST, JUST ASSUME AND TYPE THE MESSAGE. 
8 
176C 003022 001700 MFGMO: 1700 : MANUFACTURING MEMORY 0 MASTER SPECIFICATION. 
1761 : IN MANUFACTURING MODE, MEMORY 0 IS COMPARED 
1762 : WITH THIS VALUE WHEN SYSTEM CONFIGURATION IS 
1763 ; EXECUTED. DISCREPANCY IS REPORTED. 
ire : (CURRENTLY SHOWN FOR 4 BIT MEMORY.) 
1766 003024 120000 MFGSO: 120000 ; MANUFACTURING SYNC CHAN 0 MASTER SPECIFICATION. 
1767 : IN MANUFACTURING MODE, SYNC CHAN 0 IS_ COMPARED 
1768 : WITH THIS VALUE WHEN SYSTEM CONFIGURATION IS 
1769 ; EXECUTED. DISCREPANCY IS REPORTED. 


1770 ; (CURRENTLY SHOWN FOR INTERLACED SYNC CHAN.) 
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7 
N 
D2) 
— 


003042 
003044 
003046 
003050 


000000 
000000 


172010 
172012 
172014 
172016 
172020 


172022 
172024 


040000 


000004 
000100 
001700 
176077 


SEQ 0043 
.SBTTL GLOBAL DATA SECTION 


++ 
3 THE GLOBAL DATA 3 ae CONTAINS DATA THAT ARE USED 
& IN MORE THAN ONE TE 


* THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
: SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P=TABLE. 


UNITN:: 0 UNIT # UNDER TEST. 
QvP:: Q ;QUICK VERIFY FLAG. 


‘DEVICE REGISTER ADDRESSES *** KEEP IN THE ORDER GIVEN *** 


ay 172010 sDISPLAY PC 

DSR:: 172012 :DISPLAY STATUS REGISTER (ALSO REL REG). 
DXR:: 172014 “DISPLAY X POSITION REGISTER 

DYR:: 172016 “DISPLAY Y POSITION REGISTER. 

LSR:: 172020 : LOOK-UP-RAM STATUS. 

LDR:: 172022 ; DATA. 

LMR:: 172026 : AND MAINT REGISTERS. 
DPRI:: PRIO4 : INTERRUPT PRIORITY. 

STPV:: 320 >STOP VECTOR 

JSMV:: 324 : JOY-STICK MATCH VECTOR. 

TOTV:: 330 :TIME-OUT VECTOR 

JSSV:: 334 ‘JOY-STICK SWITCH (DEMAND) VECTOR. 
LUTV:: 340 ‘ LUT READ/WRITE DONE VECTOR. 

OPTI:: | ; OPTIONAL “INTENSIFY'' BIT FOR DPU, . 


i .IF DPUMOD = 0, OPT I I(NTENSIFY). 
. OTHERWISE, OPTI = 0 (UNINTENSIFY). 


t AND THESE ARE SET BY THE IMAGE MEMORY SIZER. 


PDBITS:: 4 ;NUMBER OF PIXEL BITS (2, 4, OR 8). 
PDI:: 1*BIT6 PIXEL DATA INCREMENT (MIN INTENSITY). 
PDF :: 17*BIT6 [PIXEL DATA FIELD (MAX INTENSITY). 
PDM:: “C<17*BIT6> :PIXEL DATA FIELD MASK. 

; STANDARD CONF I GURAT IONS 

: BITS PDI PDF 

: 2 0400 1400 

; 0100 1700 

: 6 0020 1760 

: 8 0004 1774 


? 
1828 003076 
9 003106 


1876 003224 
1877 
1878 003226 
1879 
1880 003230 
1881 003232 


a 


060000 
000000 


000000 
000000 
000000 
000000 


100000 900000 
000000 000000 
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STORAGE FOR DEVICE REGISTERS 


DuMMY: 0,100000,0,0 sDUMMY DEVICE REGISTERS... 
sealant 

:...FOR MULTI-UNIT CHECKOUT. 
IpPC:: O :SAVED DPC ON ANY INTERRUPT. 
IDSR: 0 ; DITTO DSR 
IDXR:: 0O Z DITTO DXR 
IDYR:: O ; DITTO DYR 
ILSR:: O ; DITTO LUT CSR 
ILDR:: O ; DITTO LUT DATA 
ILMR:: O : DITTO LUT MAINT. 
; SAVED | ""INTERNAL’' REGISTERS ON AN INTERRUPT (IN ORDER OF SELECT CODE): 
1SDSR:: 0 SAVED ‘"'SELECTED’’ DSR 
IPCSAV:: 0 > SAVED PCSAVE 


IFLAGS:: 0 ; SAVED — 

ICSR:: O SSAVED CSR 

IMAIN:: 0 :SAVED MAIN SEG. MMGT. 
IHBASE: : 0 SAVE HISTOGRAM BASE 
JAUX:: 0 >SAVED AUX. SEG MMGT. 
ICBASE:: 0 ;SAVED CHARACTER BASE 
SDPC 0 SAVED DPC AT ANY OTHER TIME. 
SDSR:: OQ $ DITTO DSR 
SDXR:: OQ : DITTO DXR 
SDYR:: 0 DITTO DYR 
;SAVED INTERNAL REGISTERS AT OTHER TIMES 
SSDSR:: 0 ;SAVED ‘‘SELECTED'’ DSR 
SPCSAV 0 :SAVED PCSAVE 

SFLAGS 0 :SAVED FLAGS 

SCSR:: 0 :SAVED CSR 

SMAIN:: 0 [SAVED MAIN SEG. MMGT. 
SHBASE 0 :SAVE HISTOGRAM BASE 


“SAVED CHARACTER BASE 

‘ AND FINALLY SOME MISCELLANEOUS REGISTERS. 

SCFLG:: 0 : SYS CONFIG FLAG (O=1ST TIME, NZ= SUBSEQUENT) 

LUTAV:: 0 : LUT AVAILABLE FLAG (NZ = USE L 

SHADLY:: 0 : SHADING DELAY COUNTER captiteee 

HUE:: | NTSC8+2 ‘ CURRENT COLOR POINTER (OPTIONAL). 

:STIK:: .BYTE <1, -1 ; 8 JOY-STICK AVAILABLE FLAGS... 

; "BYTE <1, -1 3... “1 = I DUNNO... 

; “BYTE #1, 1) face OF NO.es 

: “OvTe  -=1,*1 3. 47 © VES. 

DUFLG:: 0 "DROPPED UNIT"’ FLAG. _INHIBITS DPU.. 
+...CODE IN ‘CLEAN-UP 

NODEV:: 0 “FLAG TO SAY NO nice” 

INTLAC:: 1 ; INTERLACED MODE 

TEMP1:: 0 “SOME TEMP LOCATIONS. 


SEQ 0044 


—— 


1882 003234 

1883 003236 
1884 003240 
1885 003242 
1886 003244 
1887 


1888 
1889 003246 


1916 
1917 003302 
1918 003502 


177777 


000000 


CTABE:: 


ERROR 


: 0 


60. 


1OO00 10000 
— — 


STATISTICS TABLE (1 WORD 


T4 XXX 


: .BLKW 
0 


ao 
> 
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SEQ 0045 


; XXDP+ COMM BLOCK POINTER. 
1ST FREE MEMORY ADDRESS... 

j.».AND SIZE (IN WORDS). 

é “kT11, MEM AVAIL FLAG - 

3 - 0 = <24K OR NO KT - 

; = NZ = >24K AND KT. 
LINE FREQUENCY. 
MAX Y ACCORDING TO iy FREQENCY. 
MEM FLAGS (1'S IN BITS 0-3 REFLECT MEMS AVAIL 
SYNC CHAN FLAGS (1'S IN BITS 0-3 REFLECT SYNC  CHANS AVAIL) 
CONF iGURATION TABLES. 


MEMORY CONFIG WORK. 


; END OF MEM TABLE. 


e 


; SYNC CHAN CONFIG WORK. 


; END OF CONFIG WORK AREA. 
PER UNIT), 64 UNITS MAX: 


UNIT NOT TESTED 

UNIT ONLINE, NO ERRORS 

UNIT ONLINE, ENCOUNTERED XXXX ERRORS 

UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 
UNIT DROPPED, NOT IDLE AT START 

UNIT DROPPED, ENCOUNTERED XXXX ERRORS 


| 
; END OF SYNC CHAN TABLE. 


H 4 
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1920 .SBITL GLOBAL TEXT SECTION 
1922 go 
1923 : THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
1924 ; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
1925 : MORE THAN ONE TEST. 
4888 ee 
1928 00 040 040 116 NXR ASCIZ / WNON-EXISTANT DEVICE REGISTER/ 
1929 003543 045 101 040 NXRX ASCIZ /%A ADDRESS: %06/ 
1930 045 101 040 PCSX ASCII /%A DPC,DSR EXP'D: %06%A,%06%N/ 
1931 003622 045 101 040 ASCIZ /%A DPC.DSR REC'D: %06%A, %06/ 
1932 003657 045 101 040 xXYX ASCII /%A_ DXR,DYR EXP'D: %06%A, 406%N/ 
1933 003715 045 101 040 ASCIZ /%A_ DXR,DYR REC'D: %06%A,%06/ 
1934 003752 045 116 045 FUSI ASCII /%N%A/ 
1935 003756 040 04 125 USI: .ASCIZ / UNEXPECTED ‘'STOP’' INTERRUPT/ 
1936 004014 040 040 042 NSI: ASCIZ / ‘'STOP’’ INTERRUPT EXPECTED, NOT RECEIVED/ 
1937 045 116 045 FUTO: .ASCII /%N%A/ 
1938 004072 040 040 125 UTO: -ASCIZ / UNEXPECTED DPU ‘'ERROR'’ INTERRUPT/ 
1939 004135 040 040 104 NTO: .ASCIZ / DPU ‘'ERROR’’ INTERRUPT EXP'D, NOT REC'D/ 
1940 206 045 116 045 FUMI: .ASCII /%N%A/ 
1941 004212 040 040 125 UMI: -ASCIZ / UNEXPECTED ‘MATCH'’ INTERRUPT/ 
1942 004251 045 116 045 FUSWI: .ASCII /%N%A/ 
1943 004255 040 040 125 USWI: .ASCIZ / UNEXPECTED ‘‘SWITCH'’ INTERRUPT/ 
1944 315 045 116 045 FNOINTR: -ASCII /%N%A/ 
1945 004321 040 040 116 NOINTR: .ASCIZ / NO INTERRUPT WAS GENERATED/ 
1946 004356 040 111. IFAULT: .ASCIZ / INTERRUPT FAULT/ 
1947 004400 045 101 040 INTX: .ASCIZ /%A CPU PC: %06%A DPC: %06/ 
1948 434 040 040 042 NOINIT: .ASCIZ / ‘BUS=-INIT’’ DIDN'T INITIALIZE DISPLAY/ 
949 004503 040 040 123. SSF: -ASCIZ / START-NOP=STOP FAILURE/ 
1950 534 040 122 RJF: -ASCIZ / RESUME-NOP-JUMP FAILURE/ 
1951 004566 040 040 112 JSF: ASCIZ / JUMP SELF FAILURE/ 
1952 004612 040 040 105 ESF: ASCIZ / EXTERNAL STOP FAILURE/ 
1953 004642 040 040 120 PDXI: ASCIZ / PIXEL DATA XFER INCORRECT/ 
1954 004676 040 040 116 OPCF: ASCIZ / NULL OPCODE FAILURE/ 
1955 004724 045 116 045 OPCFX ASCIZ /%N%A_ OPCODE: %06/ 
1956 904746 040 040 122 RELF: ASCIZ / RELOCATION FAJLURE/ 
1957 004773 5 116 045 RELFX: .ASCIZ /%N%ZA_ INITIAL DPC: %06%A, RELOC(DSR): %06%N/ 
1958 005047 040 040 101 F: ASCIZ / ABs POINT FAILURE? 
1959 005073 040 040 114 LVF: -ASCIZ / LONG VECTOR F 
1960 005121 S 116 045 LONGX: .ASCIZ TINKA ORIGIN: LOGRAY OGRA DX, DY: %06%A,%06/ 
1961 005175 040 040 122 RPF: -ASCIZ / REL POINT FAILURE/ 
1962 005221 040 040 123 SVF: .ASCIZ / SHORT VECTOR FAILUR 
1963 005250 045 116 045 SHRTX: .ASCIZ /%N%A ORIGIN: %04%A, SDAA DXY: %06/ 
1964 005314 040 040 107 GHXF: .ASCIZ / GRAPH-HISTO X FAILURE/ 
1965 005344 040 040 107 GHYF:  .ASCIZ / GRAPH-HISTO Y FAILURE/ 
1966 005374 045 116 045 GHXYX: .ASCIZ /%N%A AMPL: %06%A_ INCR: %02/ 
1967 005431 040 040 102 BMF: -ASCIZ / BIT MAP FAILURE/ 
1 005453 045 116 045 BMX: -ASCIZ /%N%A_ OPCODE o# 
1969 005475 040 040 103 CHRF: .ASCIZ / CHAR MODE FAIL 
1970 005521 045 116 045 CHRFX: .ASCIZ /%N%A_ BASE: SOOLA Snes %03/ 
1971 005556 040 040 124 PRBHNG: .ASCII / TEST ABORTED/ 
1972 005574 040 040 120 PRBH: .ASCIZ / PIXEL-READ-BACK FAILS OR HANGS DPU/ 
1973 005641 040 040 111 IMDI: .ASCIZ / IMAGE MEMORY DATA INCORRECT/ 
1974 005677 045 101 0460 IMDIX: .ASCII /%A_ ADDRESS (X,Y): %04%A,%04/ 
1975 005733 045 116 045 ASCIZ /%N%A FIELD: %04%A EXP'D: YO4XA REC'D: %04/ 
1976 006010 045 116 045 IMDIX2: .ASCIZ /%N%A SUSPECT RAM GROUP %01%A, IMAGE MEMORY CHANNEL: %01/ 





[ 
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1977 006101 045 116 045 IMDIXC: .ASCII] /%N%A ADDRESS (X,Y): %04%A,%04/ 

1978 006137 045 116 045 "ASCIZ /ZN%ZA FIELD: %O04%A EXP'D: %04%A REC'D: %04/ 

1979 006214 045 116 045 "ASCIZ /%N%A SUSPECT RAM GROUP %01%A, IMAGE MEMORY CHANNEL: %01/ 
| 1980 006306 040 040 114 NLRI: ASCIZ / LUT READ INTERRUPT EXPECTED, NOT RECEIVED/ 
| 1981 006362 040 040 114 NiWl: ASCIZ / LUT WRITE INTERRUPT EXPECTED, NOT RECEIVED/ 
| 1982 006437 040 040 125 ULRI: .ASCIZ / UNEXPECTED LUT READ INTERRUPT/ 

1983 006477 040 040 155 ULWI:  ASCIZ / UNEXPECTED LUT WRITE INTERRUPT/ 
1984 006540 045 101 040 LINTX: .ASCIZ /%A CSR: %06/ 
1985 006555 040 040 114 LAIER: ASCIZ / LUT AUTO-INCR INCORRECT ON READ/ 

1986 006617 040 040 114 LAIEW:  lASCIZ / LUT AUTO-INCR INCORRECT ON WRITE/ 

1987 006662 040 040 114 LDINC: ASCIZ / LUT DATA INCORRECT/ 
| 1988 006707 045 101 040 LRWX: .ASCIZ /%A CSR: Z06%A EXP'D: %06%A REC'D: %06/ 

1989 006760 040 040 042 NSINIT: .ASCIZ2 / ‘‘SOFT-INIT’' DIDN'T INITIALIZE THE DPU/ 
| 1 007030 040 040 042 BRINIT: .ASCIZ / *BUS-RESET’’ DIDN'T INITIALIZE THE DPU/ 

1991 007100 040 104 IDPCE: .ASCIZ # DPC READ/WRITE ERRORS 

1992 007127 040 04 104 IDSRE: ASCIZ # DSR READ/WRITE ERROR# 

1993 007156 040 040 103 ICSRE: _ASCIZ # CSR READ/WRITE ERROR 

1994 007205 040 040 115 IMRRE: _ASCIZ # MRR READ/WRITE ERROR 

1995 007234 040 040 115 IMPWPE: |ASCIZ # MPM WRITE/MWP (HBASE) READ ERROR# 

1996 007277 040 115 IMPME: _ASCIZ # MPM READ/WRITE ERROR# 

1997 007326 040 040 130 IXRRE: .ASCIZ # XRR READ/WRITE ERRORA 

1998 007355 040 130 IXPME: ASCIZ # XPM READ/WRITE ERRORA 

1999 007404 040 040 130 IXPWPE: .ASCIZ # XPM WRITE/XWP (HBASE) READ ERROR# 

000 007447 040 040 110 JHBAE: .ASCIZ # HBA READ/WRITE ERRORA 

2001 007476 040 040 103 ICBAE: _ASCIZ # CBA READ/WRITE ERROR# 

2002 007525 040 040 104 JPDPCE: .ASCI2 # DJMS/DPOP FAILURE (DPC)# 

2003 007557 040 104 JPPCSE: .ASCIZ # DJMS/DPOP FAILURE (PCS)4 

2004 007611 040 040 104 DPDSE: ASCIZ / DPC(W),DSR(R) DUAL ADRS FAULT/ 

2005 007651 040 040 104 DSDPE: .ASCIZ / DSR(W),DPC(R) DUAL ADRS FAULT/ 

007711 040 040 104 DSDXE: ASCIZ / DSR(W),DXR(R) DUAL ADRS FAULT/ “sgt 
2007 007751 040 040 104 DSDYE: .ASCIZ / DSR(W),DYR(R) DUAL ADRS FAULT/ 
2008 010011 040 040 106 DSPCE: ASCIZ / DSR(W).PCS(R) DUAL ADRS FAULT/ 
010051 040 104 DSFLE: ASCIZ / ODSR(W),FLG(P> DUAL ADRS FAULT/ 

2010 0101171 040 040 104 DSCSE: .ASCIZ / DSR(W),CSR(R) DUAL ADRS FAULT/ 

2011 010151 040 040 104 DSMRE: .ASCIZ / DSR(W),MRR(R) DUAL ADRS FAULT/ 

2012 010211 040 040 104 DSMPE: .ASCIZ / DSR(W),MPM(R) DUAL ADRS FAULT/ 

2013 010251 040 040 104 DSXRE: .ASCIZ / DSR(W),XRR(R) DUAL ADRS FAULT/ 

2014 010311 040 104 DSXPE: .ASCIZ / DSR(W),XPM(R) DUAL ADRS FAULT/ 

2015 010351 040 040 103 CSDSE: .ASCIZ / CSR(W),DSR(R) DUAL ADRS FAULT/ 

2016 010411 040 040 103 CSPCE: ASCIZ / CSR(W),PCS(R) DUAL ADRS FAULT/ 

2017 010451 040 040 103 CSFLE: .ASCIZ / CSR(W),FLG(R) DUAL ADRS FAULT/ 

2018 010511 040 040 103 CSMRE: _ASCIZ / CSR(W).MRR(R) DUAL ADRS FAULT/ 

2019 010551 040 0 103 CSMPE: “ASCIZ / CSR(W).MPM(R) DUAL ADRS FAULT/ 

2020 010611 040 040 103 CSXRE: ASCIZ / CSR(W),XRR(R) DUAL ADRS FAULT/ 

2021 010651 040 040 103 CSXPE:  lASCIZ / CSR(W).XPM(R) DUAL ADRS FAULT/ 

2022 010711 0 0 115 MRDSE: lASCIZ / MRR(W).DSR(R) DUAL ADRS FAULT/ 

2023 010751 040 040 115 MRPCE: “ASCIZ / MRR(W).PCS(R) DUAL ADRS FAULT/ 

2024 011011 040 040 115 MRFLE: .ASCIZ / MRR(W),FLG(R) DUAL ADRS FAULT/ 

2025 011051 040 040 115 MRCSE .ASCIZ / MRR(W),CSR(R> DUAL ADRS FAULT/ 

2026 011111 040 040 115 MRMPE: .ASCIZ / MRR(W),MPM(R) D ADRS FAULT/ 

2027 011151 040 040 115 MRXRE: ASCIZ / MRR(W).XRR(R) DUAL ADRS FAULT/ 

2028 011211 040 040 115 MRXPE: “ASCIZ. / MRR(W).XPM(R) DUAL ADRS FAULT/ 

2029 011251 040 040 115 MPDSE: ASCIZ / MPM(wW),DSR(R) DUAL ADRS FAULT/ 

2030 011311 040 040 115 MPPCE: .ASCIZ / MPM(W),PCS(R) DUAL ADRS FAULT/ 

2031 011351 040 040 115 MPFLE .ASCIZ / MPM(W),FLG(R) DUAL ADRS FAULT/ 

2032 011411 040 040 115 MPCSE: .ASCIZ / MPM(W),CSR(R) DUAL ADRS FAULT/ 

2033 011451 040 040 115 MPMRE: .ASCIZ / MPM(W),MRR(R) DUAL ADRS FAULT/ 


o< 


f-—-——--- - 
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2034 011511 040 040 115 MPXRE: .ASCIZ / MPM(W),XRR(R) DUAL ADRS FAULT/ 
2035 011551 040 0460 115 MPXPE: .ASCIZ / MPM(W),XPM(R) DUAL ADRS FAULT/ 
2036 011611 040 040 130 MRDSE: .ASCIZ / XRR(W),DSR(R) DUAL ADRS FAULT/ 
2037 011651 040 040 130 MRPCE: .ASCIZ / XRR(W),PCS(R) DUAL ADRS FAULT/ 
2038 011711 040 040 130 MRFLE: .ASCIZ / XRR(W),FLG(R) DUAL ADRS FAULT/ 
2039 011751 040 040 730 MRCSE: .ASCIZ / X&RR(W),CSR(R) DUAL ADRS FAULT/ 
2040 012011 040 040 130 MRMRE: .ASCIZ / XRR(W),MRR(R) DUAL ADRS FAULT/ 
2041 012051 040 040 130 MRMPE: .ASCIZ / XRR(W),MPM(R) DUAL ADRS FAULT/ 
sion 4 012111 040 040 130 MRXPE: .ASCIZ / XRR(W),XPM(R) DUAL ADRS FAULT/ 
2043 012151 040 040 130 KPDSE: .ASCIZ / XPM(W),DSR(R) DUAL ADRS FAULT/ 
2044 012211 040 040 130 KPPCE: .ASCIZ / XPM(W),PCS(R) DUAL ADRS FAULT/ 
2045 012251 Q 040 130 MPFLE: .ASCIZ / XPM(W),FLG(R) DUAL ADRS FAULT/ 
| 2046 012311 040 040 130 KPCSE: .ASCIZ / XPM(W),CSR(R) DUAL ADRS FAULT/ 
2067 012351 040 040 130 XPMRE: .ASCIZ / XPM(W),MRR(R) DUAL ADRS FAULT/ 
8 012411 040 040 130 XPMPE: .ASCIZ / XPM(W),MPM(R) DUAL ADRS FAULT/ 
2049 072451 040 0s 130 KPXRE: .ASCIZ / XPM(W),XRR(R) DUAL ADRS FAULT/ 
2050 012511 040 040 115 MMMACE: .ASCIZ / MAIN MEM MGT ACCESS FAULT/ 
2051 012545 040 040 101 XMMACE: .ASCIZ / AUX MEM MGT ACCESS FAULT/ 
2052 012600 040 040 115 MMANXE: .ASCIZ / MAIN MEM MGT NON-EXIST MEM FAULT/ 
2053 012643 045 101 040 DPCERA: .ASCIZ /%A (DPC) EXP'D: Z06%A, REC'D: %06/ 
2054 012706 045 101 040 DSRERA: .ASCIZ /2A (DSR) EXP'D: % - REC'D: %06/ 
2055 012751 045 101 040 DXRERA: .ASCIZ /%A (DXR) EXP"D: Z06%A, REC'D: %06/ 
2056 013014 045 101 040 DYRERA: .ASCIZ /%A (DYR) EXP'D: Z06%A, REC'D: %06/ 
2057 013057 045 101 040 PCSERA: .ASCIZ /%A (PCS) EXP'D: Z06%A, REC'D: %06/ 
2058 013122 045 101 040 FLGERA: .ASCIZ /%A (FLG) EXP'D: Z06%A, REC'D: %06/ 
2059 013165 045 101 040 CSRERA: .ASCIZ /%A (CSR) EXP'D: % - REC'D: %06/ 
2060 013230 045 101 040 MRRERA: .ASCIZ /%A (MRR) EXP'D: % - REC'D: %06/ 
2061 013273 045 101 040 MPMERA: .ASCIZ /%A (MPM) EXP'D: Z06%A, REC'D: %06/ 
2062 013336 045 101 040 XRRERA: .ASCIZ /%A (XRR) EXP'D: Z062%A, REC'D: %06/ 
2063 C1340 045 101 040 XPMERA: .ASCIZ /%A (XPM) EXP'D: 206%A, REC'D: %06/ 
2064 013444 045 101 040 HBAERA: .ASCIZ /%A (HBA) EXP'D: Z06%A, REC'D: %06/ 
2065 013507 045 101 040 CBAERA: .ASCIZ /%A (CBA) EXP'D: %06%A, REC'D: %06/ 
2066 013552 040 040 106 ECE: -ASCIZ / DIDN'T GET EXPECTED ERROR CODE/ 
2067 MORE ERROR MESSAGES -- 
2069 013613 040 103 CRWRZ: .ASCIZ ‘°* CURSOR REGISTER WRITE/READ ZEROS ERROR™’ 
2070 013664 040 040 103 CRWRO: .ASCIZ ‘' CURSOR REGISTER WRITE/READ ONES ERROR’ 
2071 013734 040 040 103 CRDAX: .ASCIZ ‘* CURSOR REGISTER DUAL ADDRESS - WRITE Y CHANGED Xx"' 
2072 014017 040 040 103 CRDAY: .ASCIZ ‘* CURSOR REGISTER DUAL ADDRESS - WRITE X CHANGED Y"" 
| 2073 014102 040 040 103 CRWRE: .ASCIZ ‘* CURSOR REGISTER WRITE/READ ERROR’ 
2074 014145 0 040 112 JSEWRZ: .ASCIZ ‘* JOYSTICK ENABLES WRT/RD 0°S ERROR" 
2075 014211 040 040 112 JSEWRO: .ASCIZ ‘* JOYSTICK ENABLES WRT/RD 1°S ERROR™’ 
2076 014255 040 040 112 CEZ2WE: .ASCIZ ‘' JOYSTICK ENABLES ZERO-THEN-WRITE ERROR"’ 
2077 014326 040 040 112 CESWE: .ASCIZ  ‘* JOYSTICK ENABLES SET-THEN-WRITE ERROR™’ 
2078 014376 040 040 112 JENOCL: .ASCIZ ‘' J.S. CHANNEL DECODE ERROR - ENABLES DIDN'T CLEAR" 
2079 014461 040 122 CSRGSNE: .ASCIZ ‘' REGISTER ERROR AFTER J.S. SWITCH SET, NO ENABLE™’ 
2080 014543 040 040 122 CSRGENS: .ASCIZ ‘' REGISTER ERROR AFTER J.S. SW ENABLE SET, NO SWITCH’ 
2081 014630 040 04 111 CSIFC: .ASCIZ ‘' INTERNAL REG. ERROR AFTER CLEARING J.S. SW INTR'’ 
2082 014712 040 040 105 NOSWPI: .ASCIZ ‘* ERROR IN FLAGS REG. ~~ SHOULD SHOW PENDING Sw INTR’’ 
2083 014777 040 040 106 NOSWI: .ASCIZ ‘' FAULTY J.S. SWITCH INTERRUPT"’ : 
2084 015036 040 040 111 SWIBV: .ASCIZ ‘' INCORRECT VECTOR ON J.S. SWITCH INTERRUPT"' 

2085 015112 040 0 123 SWNOHLT: .ASCIZ ‘* SWITCH INTR REQ DIDN'T HALT DISPLAY PROCESSING - BAD DPC*’ 
soae 015205 040 040 106 SWNOCU: .ASCIZ ‘*' FAULTY CURSOR RETRIEVAL ON J.S. SW INTR REQ"* 
015263 040 040 115 NOCMI: .ASCIZ ‘* MATCH INTERRUPT FAULTY OR NOT RECEIVED"’ 

| 2089 015334 040 040 116 NOMST: .ASCIZ ‘' NO STOP ON MATCH INTERRUPT"’ 
2090 015371 040 040 115 CMNOMI: .ASCIZ ‘' MATCH BUT NO MATCH INTERRUPT*’ 
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2091 015430 040 040 111 CMIVB: .ASCIZ ‘' INCORRECT VECTOR ON CURSOR MATCH INTERRUPT’ 

2092 015505 040 040 127 MATPCS: -ASCIZ ‘' WRONG DPC OR DSR FOR MATCH STOP" 

2093 015547 040 040 157 MATXYE: .ASCIZ ‘' WRONG DXR OR DYR FOR MATCH STOP"’ 

2094 015611 040 040 127 MATPOS: :ASCIZ ‘' WRONG DXR OR DYR AFTER POSITION-RESTORE’ 

5 015663 040 040 111 MATIRE: _ASCIZ. ‘" INTERNAL REGISTER INCORRECT FOR MATCH'’ 
2096 015733 040 040 111 MEREG: ‘ASCIZ ‘’ INTERNAL REGISTER INCORRECT AFTER SETUP FOR MATCH" 
2097 016017 040 040 106 MATFLE: :ASCIZ ‘' FLAGS REGISTER INCORRECT FOR MATCH’ a 
6064 040 040 125 MATUI: .ASCIZ ‘' UNEXPECTED INTERRUPT ON RESUME AFTER MATCH 

2099 016141 040 040 104 MENDPCS: .ASCIZ ‘' DPC OR DSR WRONG ON AFTER RESUME FOLLOWING MATCH’ 

2100 016224 040 040 103 fF:  .ASCIZ. ‘' CURSOR MATCHED AT WRONG POSITION 

2101 016267 040 040 116 NOMAT: :ASCIZ ‘* NO CURSOR MATCH DETECTED" 

2102 016322 045 116 045 EXPGT2: :ASCIZ /ZNKA EXP"D: %06%A, YO6%NZA REC'D: 206%A, %06/ 

2103 016377 045 116 045 FCOORD: ‘ASCII /%N%A CURSOR (X,Y) = %06%A, %06/ 
| 2104 016437 045 116 045 “ASCIZ /%N%A REC'D DXR, DYR = %06%A, %06/ 

2105 016500 045 116 045 FSYCHAN: “ASCIZ. ""%N%A SYNC GEN/JOYSTICK CHANNEL = %01°' 

2107 

2108 016546 000 NUL:  .ASCIZ // 

2109 016547 045 116 000 NULCR: .ASCIZ /%N/ 

2110 616552 040 040 122 RLXIE: .ASCIZ / RUN-LENGTH X-INCREMENT FAILURE/ 

2111 016613 040 040 155 RLX2IE: .ASCIZ / RUN-LENGTH X-DOUBLE INCREMENT FAILURE/ 

2112 016663 N49 040 135 RLYUE: .ASCIZ / RUN-LENGTH Y-UP FAILURE/ 

2113 016715 ; 040 135 RLYDE: .ASCIZ / RUN-LENGTH Y-DOWN FAILURE/ 

2114 016751 040 040 1392 RLY2UE: .ASCIZ / RUN-LENGTH Y-SKIP UP FAILURE/ 

2115 017010 040 040 122 RLY2DE: :ASCIZ /  RUN-LENGTH Y-SKIP DOWN FAILURE/ 

2116 017051 045 101 040 EXPGOT: .ASCIZ /%A EXP'D: %06%A, REC'D: %06/ 

2117 017105 045 101 040 DUAD12: .ASCIZ /%A REG(W) WRITTEN TO: YO6%A REG(R) READ: EXP'D: %O6%A, REC'D: %06/ 

2118 017207 040 040 115 INLE:  .ASCIZ / MEM INTERLACE ERROR/ 

2119 017235 045 101 040 INLEXF: .ASCIZ /%A PIXEL READBACK EXP" D: %06%A, REC'D: %06%A, CHAN: %01/ 

2120 017326 040 040 120 SCPRE: .ASCIZ2 / PIXEL READBACK ERROR/ 

2121 017355 040 040 123 SCIDE: ‘:ASCIZ / SYNC CHAN INTERLACE DIFFERENCE/ 

2122 017416 040 040 103 SCME:  _.ASCIZ2 / CONFIG DOESN'T MATCH MFG. MASTER/ 

2123 017461 045 101 040 SCMFG: .ASCIZ /%A MFG MEM O: HOSIA, MFG SYNC CHAN 0: %06/ 

2124 017534 045 116 045 SCM ASCII /%N%A_ MEMORYS:/ 

2125 017552 045 101 040 ASCII /%A 0 = %06/ 

2126 017565 045 101 054 "ASCII /%A, 1 = %06/ 

2127 017601 045 101 054 ASCII /%A. 2 = %06/ 

2128 017615 045 101 054 "ASCIZ ° 3 = %06/ 

2129 017632 045 116 045 SCS: ASCII /%N%A SYNC CHANS:/ 

2130 017653 045 101 040 "ASCII /%A 0 = %06/ 

2131 017666 045 101 054 ASCII /%A, 1 = %06/ 

2132 017702 045 101 054 ASCII /%A. 2 = %06/ 

2133 017716 045 101 054 “ASCIZ /%A, 3 = %O6%N/ 

2134 017735 045 116 045 NOMAN: ASCIZ 7INYAx*** MANUAL INTERVENTION NOT ALLOWED -- ABORTING ****%N/ 

EV 


vs 
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GLOBAL ERROR REPORT SECTION SEQ 0050 
2137 .SBTTL GLOBAL ERROR REPORT SECTION 
8 
2140 ; “THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 
2141 ; CALLS THAT ARE USED IN MORE THAN ONE TEST. 
$108 3 ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 
2144 
2145 020032 BGNMSG —_— NON-EXISTANT DEVICE REGISTER. 
2146 020032 PRINTX #NXRX, NODE V s;NODEV = NEXM ADDRESS. 
2147 020056 004737 022276 JSR PC EXTEND ; PRINT EXTENSION IF REQUIRED. 
sits 020062 ENDMSG 
2150 020064 BGNMSG PCSERR ;BAD DPC AND/OR DSR oor 
2151 020064 PRINTX #PCSX,R2,R3,@DPC,a@DSR ;R2,R3 = EXP PC,SR 
2152 020120 004737 022276 JSR PC EXTEND : PRINT EXTENSION IF REQUIRED. 
Siler 020124 ENDMSG 
2155 020126 BGNMSG XYERR ;BAD DXR AND/OR DYR er yKY 
2156 020126 PRINTX #XYX,R4,R5,@DXR,@DYR ;R4,R5 = 
2157 020162 004737 022276 JSR PC EXTEND ; PRINT EXTENSION tf "REQUIRED. 
s\z5 020166 ENDMSG 
2160 020170 BGNMSG RLXYE ;BAD roe AND/OR DYR SIGNATURE. 
2161 020170 PRINTX #XYX,R1, R3, R2,R R1,R3 = EXP, R2,R4 = REC. 
2162 020220 004737 022276 JSR PC EXTEND a" PRINT EXTENSION IF REQUIRED. 
Siar 020224 ENDMSG 
2165 020226 BGNMSG INTERR ;DISPLAY INTERRUPT ERROR SIGNATURE. 
2166 020226 PRINTX aan th R1,aDPC  ;R1 = CPU PC 
2167 020254 PRINTX ; PRINT A NEWLINE 
2168 020274 122737 000377 026107 CMPB #"0377, INTFLAG [WAS ANY INTERRUPT GENERATED? 
2169 020302 001011 BNE 1$ :BR IF YES 
2170 020304 PRINTX #FNOINTR ; NO -- REPORT THE FACT 
2171 020324 000465 BR $ 
2172 020326 132737 000001 026107 1$: BITB MIOKSTP,INTFLAG ; WAS IT AN UNEXPECTED ‘‘STOP** INTERRUPT? 
2173 020334 001411 BEG 2$ ; BR IF NO. 
2174 020336 PRINTX #FUSI ; YES -- REPORT IT 
2175 020356 000450 BR 20$ 
2176 020360 132737 000002 026107 2%: BITB MIOKJSM,INTFLAG ; WAS IT AN UNEXPECTED ‘MATCH’ INTERRUPT? 
2177 020366 001411 BEQ 3$ ; BR IF NO. 
2178 020370 PRINTX #FUMI ; REPORT IF YES. 
2179 020410 000433 BR 20$ 
2180 020412 132737 000010 026107 3$: BITB MIOKJSS, INTFLAG ; WAS IT AN UNEXPECTED ‘‘SWITCH'’ INTERRUPT? 
2181 020420 001411 BEQ 4$ ; BR IF NO 
2182 020422 PRINTX A#FUSWI ; REPORT IF YES 
2183 020442 000416 BR 20$ 
2184 020444 132737 000004 026107 4$: BITB MIOKERR, INTFLAG ; WAS IT AN UNEXPECTED ‘RROR'’ INTERRUPT? 
2185 020452 001412 BEQ 20$ 
2186 020454 PRINTX #FUTO ; REPORT IT 
2187 020474 004737 023516 JSR PC, ER! CHK CHECK THE ERROR CODE 
2188 020500 004737 022276 20$: JSR PC,EXSEND > PRINT EXTENSION IF REQUIRED. 
a4 020504 ENDMSG 
2191 020506 BGNMSG IMDERR ; IMAGE MEM DATA aoe 
2192 020506 010137 072350 MOV R1,IMCRAM eer X ADDR. 
2193 020512 006237 072350 ASR IMCRAM .TO RAM NUMBER 





vs 
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GLOBAL ERROR REPORT SECTION SEQ 0051 


2194 020516 PRINTX M#IMDIX,R1,R2.PDF,R3,R4 
2195 020552 PRINTX #IMDIX2, IMCRAM, IMC. CH 
2196 020602 004737 022276 JSR PC EXTEND : PRINT EXTENSION IF REQUIRED. 
3197 02 ENDMSG 
2199 020610 BGNMSG LINTER ; LUT INTERRUPT ERROR. 
2200 020610 PRINTX #LINTX,@LSR : SHOW 
2201 020634 004737 022276 JSR PC EXTEND > PRINT EXTENSION IF REQUIRED. 
2202 020640 ENDMSG 
2204 020642 BGNMSG LRWERR ; LUT READ/WRITE ERROR. 
2205 020642 PRINTX #LRWX, aL sR. R1,R2 ; CSR, EXP'D, REC'D. 
2206 020672 004737 022276 JSR PC, EXTEND "PRINT EXTENSION IF REQUIRED. 

2207 020676 ENDMSG 

209 020700 BGNMSG EXPREC 
2210 020700 PRINTX #EXPGOT,R1,R2 : RI=EXP"D, R2=REC'D 
2211 020724 004737 022276 JSR PC, EXTEND + PRINT EXTENSION Ir "REQUIRED. 
ele 020730 ENDMSG 
2214 020732 BGNMSG DPCER 
2215 020732 PRINTX #DPCERA,R1,R2 : R1I=EXPECTED, R2=RECEIVED. 
2216 020756 004737 022276 JSR PC, EXTEND + PRINT EXTENSION IF REQ'D. 
3217 020762 ENDMSG 
2219 020764 BGNMSG DSRER 
2220 020764 PRINTX #DSRERA,R1,R2 : R1I=EXPECTED, R2=RECEIVED. 
2221 021010 004737 022276 JSR PC EXTEND + PRINT EXTENSION IF REQ'D. 
2222 021014 ENDMSG 
2223 
2224 021016 BGNMSG DXRER 
2225 021016 PRINTX #DXRERA,R1,R2 : R1I=EXPECTED, R2=RECEIVED. 
2226 021042 004737 022276 JSR PC,EXTEND * PRINT EXTENSION IF REQ'D. 
3207 021046 ENDMSG 
2229 021050 BGNMSG DYRER 
2230 021050 PRINTX #DYRERA,R1,R2 : RI=EXPECTED, R2=RECEIVED. 
2231 021074 004737 022276 JSR PC, EXTEND : PRINT EXTENSION IF REQ'D. 
2232 021100 ENDMSG 
2234 021102 BGNMSG PCSER 
2235 021102 PRINTX #PCSERA,R1,R2 : R1I=EXPECTED, R2=RECEIVED. 

36 021126 004737 022276 JSR PC, EXTEND + PRINT EXTENSION IF REQ'D. 

2237 021132 ENDMSG 
2239 021134 BGNMSG FLGER 
2240 021134 PRINTX #FLGERA,R1,R2 : RI=EXPECTED, R2=RECEIVED. 
2241 021160 004737 022276 JSR PC, EXTEND * PRINT EXTENSION IF REQ'D. 
gehe 021164 ENDMSG 
2244 021166 BGNMSG CSRER 
2245 021166 PRINTX #CSRERA,R1,R2 : RI=EXPECTED, R2=RECEIVED. 
246 021212 004737 022276 JSR PC. FXTEND * PRINT EXTENSION IF REQ'D. 
2247 021216 ENDMSG 
2249 021220 BGNMSG MRRER 
2250 021220 PRINTX #MRRERA,R1,R2 : RI=EXPECTED, R2=RECEIVED. 
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2251 021244 
2252 021250 
253 


2 
2254 021252 


2258 

2259 021304 
2260 021304 
2261 021330 
2262 021334 


2264 021336 
2265 021336 
2266 021362 
2267 021366 
2268 

2269 021370 
2272 021420 
2275 

2274 021422 
2275 021422 
2276 021446 
2277 021452 
2278 

2279 021454 


96 
2297 091760 
2298 
2299 
2300 021762 
2301 021762 
2302 022006 
2303 022026 
2304 022052 
2305 022072 
2306 


2307 


004737 022276 


004737 022276 


004737 022276 


004737 022276 


004737 022276 


004737 022276 


004737 022276 


005737 
001414 


002512 


— 





ENDMSG 
BGNMSG 


ENDMSG 
BGNMSG 


ENDMSG 
BGNMSG 


ENDMSG 
BGNMSG 


ENDMSG 
BGNMSG 


ENDMSG 
BGNMSG 


ENDMSG 


BGNMSG 


1$: 
ENDMSG 
BGNMSG 


ENDMSG 


BGNMSG 


ENDMSG 


JSR 


PRINTX 
PRINTX 


MMMAE 

PRINTX 
PRINTX 
PRINTX 
PRINTX 


XMMAE 

PRINTX 
PRINTX 
PRINTX 
PRINTX 


PC,EXTEND 


AMPMERA,R1,R2 
PC,EXTEND 


AXRRERA,R1,R2 
PC,EXTEND 


AXPMERA,R1,R2 
PC, EXTEND 


M#HBAERA,R1,R2 
PC, EXTEND 


A#CBAERA,R1,R2 
PC,EXTEND 


grt F aa R1,R2 


PC,EXT 


tg 
A#SCMFG,MFGMO,M 


SEQ 0052 
PRINT EXTENSION IF REQ"'D. 


R1=EXPECTED, R2=RECEIVED. 
PRINT EXTENSION IF REQ'D. 


R1=EXPECTED, R2=RECEIVED. 
PRINT EXTENSION IF REQ'D. 


R1=EXPECTED, R2=RECEIVED. 


; PRINT EXTENSION IF REQ'D. 


; R1I=EXPECTED, R2=RECEIVED. 


PRINT EXTENSION IF REQ'D. 


R1=EXPECTED, R2=RECEIVED. 
PRINT EXTENSION IF REQ'D. 


; R3=WRITTEN, R1=EXP"D, R2=REC'D. 


+ PRINT EXTENSION IF REQ'D. 


: — MODE? 


Gs0 
#SCM,MEMTAB, MEMTAB+2, MEMTAB+4 ,MEMTAB+6 
ASCS,SYCTAB,SYCTAB+2, SYCTAB+4 , SYCTAB+6 


AMRRERA,R3,R4 
#NULCR 
#DPCERA,R1,R2 
#NULCR 


#XRRERA,R3,R4 
#NULCR 
#DPCERA,R1,R2 
ANULCR 


PRINT BLANK LINE 


PRINT BLANK LINE 


r 


‘A 


Eee Ae gee ae 
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2308 022074 
2309 022074 
2310 022124 
2311 0221350 
2312 

2313 022132 
2314 022132 
2315 022172 
2316 022176 
2317 

2318 0222 
2319 0222 
2320 022224 
2321 

2322 022226 


2335 022330 


004737 022276 


004737 022276 


005727 


2 
004777 177770 
000207 


BGNMSG EXPRC2 
PRINT 


x 
JSR 
ENDMSG 


BGNMSG 


JSR 
ENDMSG 


BGNMSG PNTSYCH 
PRINTX 
ENDMSG 
BGNMSG_INLEX 
PRINTX 
PRINTX 
ENDMSG 
: THIS ROUTINE 
EXTEND: TST 
EXTA: 0 
BEQ 
JSR 
1$: PRINTX 
RTS 


B 5 
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MEXPGT2,R1,R3,R2 
PC,EXTEND 


PC, EXTEND 
#F SYCHAN, CSCHAN 


MINLEXF ,R1,R2,R5 
ANULCR 


RS 3R1,R3 = EXP'D, R2,R4 = REC'D 
; PRINT EXTENSION, IF REQ'D. 


PNTCOOR 
PRINTX #FCOORD,CSMF4X,CSMF4Y,SDXR,SDYR 


PRINT BLANK LINE 


APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
; TO ANY OF THE ABOVE ERROR SIGNATURES. 


(PC)+ 


1$ 
PC,@EXTA 
ANULCR 
PC 


; 0 = NU EXTENSION. 


; APPEND EXTENSION TEXT. 
; PRINT A BLANK LINE 


SEQ 0053 


t 


r peqpnssinhienivensitsinin 





Nm 
rs 
Ww 


2351 022332 


2364 023012 


2367 023054 
368 023056 
023060 


Nm 

4 

Oo 
oO 
mr 
WW 
oO 
~N 
oO 


302 
$356 023322 
2393 


ee ————— 


000207 


005737 
001410 


023062 


0 
023056 


023064 


111 
045 
045 
045 


023060 
157722 
023060 


«SBTTL 
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SEQ 0054 
INTERNAL REGISTER CHECKER, ERROR CODE HANDLER, DPINIT 


ROUTINES TO CHECK CONTENTS OF INTERNAL REGISTERS. 
; UPON ENTRY, THE EXPECTED DATA SHOULD BE IN LOCATION ‘'GDDAT'’ 


“MACRO TO “2 fae 4 REGISTER CHECK FRONT-END: 
«MACRO CHECK _RGS,RNAM 


99$: -ASCIZ 


DSRCHK : 


S 

=] 

=) 

> 

_ 
oo°coo 


SIFLAG: 


; COME a Re 
IREGCK 


1$: 
BGNMSG 


2$: PRINTX 
ENDMSG 





ASEL'RGS,-(SP) ;:GET REGISTER-SELECT CODE ONTO THE STACK. 


#99$,-(SP) :AND THE ADDRESS OF THE "yeh MESSAGE. 
IREGCK THEN GO TO COMMON HANDLER 

/%A ''RNAM''/ 

CHE CK 

DSR,<DSR> ;CHECK THE DSR 

PCS,<PCSAVE> dees SAVE 

FLG,<FLAGS> .- FLAGS 

CSR,<CSR> ...CSR 

MRR,<MAIN MEM MGMT> 3..-MAIN-SEG MEM. MGMT. 
HBA,<HISTOGRAM BASE> 3 .HISTOGRAM BASE 
XRR,<AUX MEM MGMT> 3 .--AUX-SEG MEM. MGMT. 
CBA,<CHARACTER BASE> 3 ..-CHARACTER BASE 


/. INCORRECT DATA IN INTERNAL REGISTER ... 
/%NZA area %06%A REC'D: %06/ 


/%NZA ST: / 
JENZA . AFTER DOING SOFT INIT./ 


0 FLAG OR age FOR TEST-LOOP=DEPENDENT STUFF. 
; STORAGE FOR EXPECTED te 

:STORAGE FOR ACTUAL DAT 

SADDRESS OF REGISTER NAME STRING. 

FLAG TO SAY DOING SOFT INIT. 


(SP)=ADDRESS OF NAME STRING, Bt SELECT CODE. 
(SP) +,REGNAM ;GET STRING ADDRESS. 

+i THE — 
@DSR,BADDAT 7GET THE DAT 

SSELECT THE REAL 
GDDAT ,BADDAT ; COMPARE EXPECTED. we ACTUAL. 
1 70K IF EQUAL; JUST EXIT 
en 31F NOT, SAY SO & PRINT “DATA. 


REGNAM ;PRINT THE REGISTER NAME. 
AGDBAD, " weet BADDAT AND THE DATA. 


#TINERR 

TNAM ;PRINT TEST NAME 
SIFLAG :SOFT INIT? 

2$ ;BR IF NO 

#SIMSG sPRINT IF YES 
#NULCR SPRINT BLANK LINE 





—— 
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| INTERNAL REGISTER CHECKER, ERROR CODE HANDLER, DPINIT SEQ 0055 
| 
| 2394 023324 PTINER: 
2395 023324 PRINTX #TINERR aA ba "TEST:'' 
2396 023344 PRINTX TNAM PRINT NAME OF TEST 
2 023364 PRINTX #NULCR “PRINT BLANK LINE 
| 2398 023404 000207 RTS PC 
2400 ROUTINES TO CHECK Hen mae INITIALIZED STATE OF INTERNAL REGISTERS: 
2401 s  JIRCHK CHECKS THEM 
2402 :  JIRCNF CHECKS ALL put THE FLAGS REGISTER. 
2403 > TIRCNC CHECKS ALL BUT THE CSR 
stos : IIRNFC CHECKS ALL BUT FLAGS AND CSR. 
24 012737 100000 023056 JIRCNC: MOV #CHAR,GDDAT SEE IF FLAGS HAS ‘‘CHAR'' MODE ONLY. 
2407 023414 004737 022410 JSR PC,FLGCHK 
2408 023420 000414 BR 1 IRNFC BYPASS CSR CHECK 
24 012737 100000 023056 IIRCHK: MOV ACHAR ,GDDAT SEE IF FLAGS HAS “"'CHAR'' MODE ONLY. 
2410 023430 004737 022410 JSR PC,FLGCHK 
2411 023434 004737 023524 LIRCNF: JSR PC,ERRCHK SPECIFICALLY CHECK FOR AN ERROR CODE. 
2412 023440 012737 000003 023056 MOV ASELCSR,GDDAT ; WE SHOULD ONLY SEE SEI.ECT CODE IN CSR. 
2413 023446 004737 022440 JSR PC,CSRCHK 
2414 023452 012737 000001 023056 IIRNFC: MOV #1,GDDAT “EXPECT TO SEE ‘‘EMPTY'' STATUS IN PCSAVE. 
2415 023460 004737 022360 JSR PC,PCSCHK ? .GO CHECK IT. 
2416 023464 005037 023056 CLR GDDAT > REMAINING RESIS TERS S/B CLEAR. 
2417 023470 004737 022466 JSR PC,MMCHK ;..-MAIN MEM M 
2418 023474 004737 022526 JSR PC ,HBCHK 3 * HISTOGRAM BASE 
2419 023500 004737 022566 JSR PC,XMCHK i+ + «AUX MEM MGMT 
2420 023504 004737 022624 JSR PC,CBCHK :...CHARACTER BASE. 
2421 023510 005037 023064 CLR SIFLAG ‘CLEAR SOFT-INIT FLAG. 
sess 023514 000207 RTS PC 
2424 sERRCHK: CHECKS THE CSR FOR AN ERROR CODE & REPORTS IT 
2425 023516 012746 000001 ERICHK: MOV #1,-(SP) : SET FLAG TO INHIBIT USE OF ‘'DFERR'' 
2426 023522 000401 BR ERRCK1 
2427 023524 005046 ERRCHK: CLR -(SP) ; CLEAR FLAG 
2428 023526 012777 sais 157300 ERRCK1: MOV ASELCSR,@DSR * SELECT THE CSR. 
2429 023534 017746 157274 MOV aDSR,-(SP) TREAD IT. 
2430 023540 012777 000000 157266 MOV #SELDSR,aDSR SELECT REAL DSR SO PEOPLE WON'T GET MIXED UP.. 
2431 023546 011637 02306 MOV (SP) ,BADDAT ‘STORE CSR CONTENTS. 
2432 023552 042716 177760 BIC #*C17, (SP) ‘EXTRACT THE SELECT! WE FIELD 
2433 023556 022627 000003 CMP (SP)+.#SELCSR  :WE SHOULD SEE THE CSR REG SELECT CODE. 
2434 023562 001424 BEQ 1$ 
2435 023564 005716 TST (SP) : SHOULD WE DO DFERR? 
2436 023566 001011 BNE 20$ ; BR IF 
2437 023570 DFERR NOCSR IF NOT, SAY WE CAN'T READ IT. 
2438 023610 000466 R : GO TO EXIT 
2439 023612 20$: PRINTX #FNOCSR : PRINT MESSAGE ‘'CAN'T READ CSR" 
oe | 023632 000455 2$ : GO TO EXIT 
2442 023634 005737 023060 1$: TST BADDAT TEST THE ERROR BIT. 
2443 023640 100052 BPL 2$ OK IF CLEAR; JUST EXIT. 
2444 023642 000337 023060 SWAB BADDAT :IF SET, GET ERROR CODE 
2445 023646 006237 023060 ASR BADDAT 
2446 023652 006237 023060 ASR BADDAT INTO BITS<4:1>. 
2447 023656 042737 177741 023960 BIC #*C36,BADDAT “DAP OUT JUNK. 
2448 023664 013746 02306 MOV BADDAT ,~(SP) + SAVE ERROR CODE * 2 ON STACK 
2449 023670 062716 024266 ADD #ERCTBL, (SP) ‘GET TO THE MESSAGE ADDRESS TABLE. 
2450 023674 013637 024264 MOV a(SP)+,ERCNAM :GET THE ADDRESS OF THE REG NAME MESSAGE . 
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2458 023770 
2460 023772 


2500 

2501 » ENABL 
2502 025402 

2503 025406 MOV 
2504 025414 

2505 025422 

2506 025426 

2507 025430 


005776 
001011 


000420 


005726 
000207 


023727 
001014 


005737 
001410 


000000 
024326 
024755 


004737 


040 
116 
040 
023060 


023064 


024365 
025004 


ee er ee ee ee ee ee ee ee 
DODO VDOVDOCCOCOO000 
oh ed cee ceed ed eee a ed a oe a ed a eee ald 


031412 


155406 
026756 


024430 
025067 


17:22 PAGE 


2 
35-2 


; USE *DFERR’'? 
; BR IF NO 
;REPORT THE BAD NEWS. 


; PRINT ‘'CSR ERROR CODE DETECTED = 
3... AND THE ERROR NAME. 


/_ CAN'T READ THE CSR/ 
/ CSR ERROR CODE REC'D = 


ERCNAM 
= ,413*2 : iy :* ‘BUS DATA R/W ERROR''? 


;BR IF NO 
#GDBAD, eae @DYR ; YES == DXR = EXP'D, DYR = 


REC'D 


;SOFT INIT? 

7;BR IF NO 

PRINT IF YES 
PRINT BLANK LINE 


(ILLEGAL ERROR CODE)/ 


MEMORY PROTECTION ERROR/ 
SEQUENCE ERROR/ 
RESERVED OPERATION/ 
VECTOR ENDPOINT MISMATCH/ 
U-PROC EXECUTED UNUSED oer 
IMAGE MEMORY "'SYNC'’ TIMEQUT/ 
PIXEL READBACK ‘DATA AVAILABLE*’ oe 
J.S. STATUS ‘DATA READY'' TIMEOUT/ 
DBUS DATA gt iy ERROR/ 


(ILLEGAL ERROR CODE)/ 
(ILLEGAL ERROR CODE)/ 


3 SAVE RO-R5. 

; SAY DOING SOFT INIT 
;SELECT THE REAL DSR 
;ARE WE STOPPED? 


TST (SP) 

BNE 11$ 

HRDERR papain: 
11$: PRINTX #FERCM 

PRINTX ERCNAM 
2s: TST (SP) + 

RTS PC 
FNOCSR: .ASCII] /%NZA *¥*/ 
NOCSR: .ASCIZ 
FERCM ASCII /%NZA &8*/ 
ERCM: ASC1Z 

EVEN 
BGNMSG ERCOD 

a a 

BNE 

PRINTX 
1$: PRINTX #TINERR 

PRINTX TNAM 

TST SIFLAG 

BEQ 2s 

PRINTX A#SIMSG 
es: PRINTX A#NULCR 

ENDMSG 
ERCNAM: 0 
ERCTBL: 77$,1$,2$,3$,4$,5$,6$,7$ 

10$, 118, 12$, 13$. 14$, 15$, 16$,17$ 
sERROR CODE EXPLANATIONS; 
77$: -ASCIZ /%A... 0: 
1$: ASCIZ FiAsea 1 
2$: ASCIZ /TAc«< 2: 
3$: ASCIZ /TA.c« 3% 
4$: ASCIZ /%A... 4: 
5$: ASCIZ SBA «e 3% 
6$: ASCIZ /%A... 6: 
7$: ASCIZ #BAccs 13 
10$: ASCIZ /%A... 10: 
11$: ASCIZ - fTAcce 111 
12$: ASCIZ #PAcea Vet 
13$: eASCIZ /TA... 13: 
14$: SCIZ /8Acce 142 
15$: ASCIZ /TA... 15: 
16$: ASCIZ /%A... 16: 
17$: ASCIZ /%A. 17: 

EVEN 
;ROUTINE TO DO be O whi INIT ON THE DPU: 
DPINIT: JSR PC, SAVERS 

#1.SIFLAG 

MOV #0,aDSR 

TST @aDSR 

BM! 11$ 

JSR PC,RELEAS 


;BR IF YES 
SEE IF WE*RE HUNG. 


SEQ 0056 
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2508 025434 
2509 025440 


ronrornrrvnrrnrnrr 

PVP SIPS SISII TT 
tw a SS OS SS 
=SO0WNAURWN =O 
ololeololololeloeleleloie) 
POMONOPOMNMPNONNofynelry 
DADA IST UTUI 
ya , ae 

ws 

os 


252¢ 025600 


2534 06 
2535 025612 
2536 025614 
2537 025634 
2538 025642 
253 5646 


sace 025716 


0 
2551 025720 
2552 025720 
Saez 025740 


2555 025742 


252 530 
2522 025534 
2523 025536 
2524 025540 
S208 026010 


0 
2561 026074 
2562 026076 
2563 026102 
2564 026104 


0 
001010 


012777 
737 


001410 
012737 


001410 
004737 


004737 
000207 


000400 


040000 


027454 
026756 


100000 
155226 


155222 


000001 
023422 


155160 
155154 


031436 
023664 


025402 


155332 


155270 
155260 


023064 


104 
040 


11$: 


12%: 


DPSINI: 


1$: 


2s: 
3$: 


DPRE SET: 


VSHNG 
PRINTX 
ENDMSG 


: .ASCIZ 
-ASCIZ 


: ers 
_— 


@DPC ,RO 


11 
VSHUNG , VSHNG 


of axtet @DXR 
PC,WAIT 


$ 
wT ISS, ,@DXR 


p 
#100000, aDYR 
+ -WAIT 


$ 
PC,RELEAS 


R 
#B1715,R3 
aDPC 


2$ 
@aDSR,R3 
NSINIT,PCSERR 


#1,SIFLAG 
Cheatin 


5 
NSINIT,XYERR 
PC,RESTRS 
SIFLAG 

PC 


LSB 


A#VSHGE 


; REPORT HUNG, ALL REGISTERS 0 


;CLEAR PENDING INTERRUPT 


SET COUNTER FOR # OF SWITCHES TO CLEAR 
7SET UP OP TO CLEAR SWITCHES 
;CLEAR A SWITCH 


;CLEAR PENDING INTERRUPT 


;DO THE INIT. 

[WAIT FOR A COMPLETE 

30K IF STOPPED. 

; TRY TO UNHANG. 

TEXPECT DPC TO BE O. 
EXPECT DSR TO BE 100000. 
TEST THE DPC, S/B =0. 
SERROR IF NOT 0. 

CHECK DSR. 


;REPORT ERROR IN DPC OR DSR. 
SAY DOING SOFT INIT. 

CHECK THE INTERNAL oe Noms 
DXR AND DYR SHOULD BE 9 


; RESTORE RO-R5. 


;RETURN TO CALLER 


/_ DPU HUNG == ALL REGISTERS READ ZERO/ 
/%A BAD M7064 OR NO B=CLOCK OR VBLANK FROM M70612N/ 


8 CER K KERR KEKE KKK CK BEGIN SEGMENT. 


PC ,DPINIT 


; DO SOFT INIT 


: CK EK CEC EEK EK KEE EEE EEE END SEGMENT. 


SEQ 0057 
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~m 
Lea) 
N 
N 


7 
fa 026106 
Spy 026107 


2 
2593 026110 
2594 
2595 026112 
96 


2608 026162 
2609 026164 
261C 026166 
2611 026174 
2612 

2613 

2614 026176 
2615 026200 
sols 026206 
2617 

2618 

2619 026210 


2622 026230 


000200 
000001 


000002 
000004 
000010 


000 
000 


000000 
000000 


010046 


011646 
012766 
000002 


013737 


003052 


000340 


000000 


000340 


003056 
026107 
000004 


. SBTTL 


oy 


GLOBAL 


SEQ 0058 


SUBROUTINES SECTION 


; THAT ARE USED IN MORE THAN ONE 


> THE GLOBAL SUBROUTINES SECTION — THE SUBROUTINES 


+ DEFAULT DISPLAY INTERRUPT HANDLERS. 
: IF DISPLAY TIME-QUT, REPORT DEV FATAL, AND ABORT PASS. 
: OTHERWISE, SAVE DPU REGISTERS AND DISMISS 


; BIT DEFINITIONS FOR ''INTMASK’' AND ‘‘INTFLAG'' BYTES: 


IOKCKIN=BIT7 
IOKSTP=BITO ; 
IOKJSM=BIT1 ; 
IOKERR=BIT2 : 


: DON'T CHECK FOR BAD INTERRUPTS == TEST WILL. 


EXPECT "'STOP’’ INTERRUPT . 

EXPECT JOYSTICK "MATCH'' INTERRUPT. 
EXPECT ‘‘ERROR'’ INTERRUPT. 

EXPECT ‘JOYSTICK SWITCH’’ INTERRUPT. 


IOKJSS=BIT3 3 


; INTERRUPT MASK == SAYS EXPECTING INTERRUPTS 


;SAVE RO 
:GET POINTER TO VECTORS 
;SET UP STOP VECTOR 


;SET UP MATCH VECTOR 

;SET UP ERROR VECTOR 

SET UP JOYSTICK SWITCH VECTOR 
;RESTORE RO 

;SET CPU TO LEVEL 0 


TO i ee (RAISE PRIORITY TO LEVEL 7) 


: SAVE THE VECTOR 
;CLEAR FLAG TO SAY WE GOT poem 
EXPECTING ERROR INTERRUPT? 


INTMASK -BYTE 
; INTERRUPT FLAG =— SAYS WE GOT ONE (IF POSITIVE) 
INTFLAG: -BYTE 0 
; SAVED INTERRUPT VECTOR: 
INTVEC: ~WORD 0 
SAVE CPU 
INTCPC: .WORD 0 
; SUBROUTINE TO ENABLE perenne: 
ENAINT: MOV RO,-(SP 
MOV STPV, 20. 
MOV ADSTP, (RO) + 
MOV #PRIO7,(RO)+ 
MOV #DJM, (RO) + 
MOV #PRIO7, (RO) + 
MOV #DTO, (RO) + 
MOV #PRIO7, (RO) + 
MCV #DJIS,(RO)+ 
MOV #PRI07, (RO) 
MOV (SP)+,RO 
MOV (SP) ,-(SP) 
000002 MOV #0,2(SP) 
RTI 
; SUBROUT INE 
DSBINT: MOV 
000002 MOV #PRIO7,2(SP) 
: RTI 
sERROR (TIME-OUT) INTERRUPT SERVICE: 
026110 TO: MOV TOTV, INTVEC 
CLRB INTFLAG 
026106 BITB PIOKERR, INTMASK 
BNE DPUSAV 


BR IF YES; NO ERROR, 
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- GLOBAL SUBROUTINES SECTION SEQ 0059 | @ 
2623 026232 152737 000004 026107 BISB  #IOKERR,INTFLAG ;NO. SET THE ERROR FLAG. : 
2624 026240 000447 BR DPUSAV 7GO FINISH UP. 
3626 026242 013737 003052 026110 DSTP: MOV STPV, INTVEC :SAVE THE VECTOR 
2627 026250 105037 026107 CLRB —sCINTFLAG “CLEAR FLAG TO SAY WE GOT INTERRUPT 
2628 026254 132737 000001 026106 BITB coke * INTMASK EXPECTING STOP INTERRUP7? 
2625 026262 001036 BNE DPUSAV ‘BR IF YES 
2630 026264 152737 000001 026107 BISB  #IOKSTP,INTFLAG :NO. SET THE ERROR FLAG. | 
63) 026272 000432 BR DPUSAV 'GO FINISH UP. 
5633 026274 013737 003054 026110 DJM: MOV JSMV, INTVEC sSAVE THE VECTOR 
2634 026302 105037 026107 CLRB INTFL sCLEAR FLAG TO SAY WE GOT INTERRUPT 
3635 026306 132737 000002 026106 BITB NOKUSM. INTMASK =EXPECTING MATCH INTERRUPT? | 
26% 026314 001021 BNE DPUSAV ‘BR IF YES 
2637 026316 152737 000002 026107 BISB HIOKIJSM,INTFLAG ;NO. SET THE ERROR FLAG. 
2638 026324 000415 BR DPUSAV *GO FINISH UP. 
| 
2640 026326 013737 0035060 026110 DJS: MOV arr INTVEC s SAVE THE VECTOR 
2641 026334 105037 026107 CLRB IN TFLA G :CLEAR FLAG TO SAY WE GOT INTERRUPT 
2642 626340 132737 060010 026106 BITR  #IOKJSS.INTMASK :EXPECTING SWITCH INTERRUPT? 
2643 026346 001004 BNE DPUSAV *BR IF YES | 
2644 026350 152737 000010 026107 BISB M#IOKJSS,INTFLAG ;NO. SET THE wens: FLAG. 
2645 026356 000400 BR DPUSAV :GO FINISH UP | 
i$ | 
ul ; 
2648 026369 011637 026112 DPUSAV: MOV (SP), og _— CPU PC. 
2649 026364 010146 MOV R1,-(SP) AVE R1 
2650 026366 013701 003034 MOV DSR, R1 “CET DSR ADDRESS INTC R1 
3651 026372 017737 154434 003126 MOV aDPC, IDPC “SAVE DISPLAY PC... 
2652 026400 011137 003130 MOV (R1),IDSR :...STATUS... 
2653 026404 017737 154426 003132 MOV @aDxXR,IDXR seeeX% POSITION... 
2654 026412 017737 154422 003134 MOV @DYR.IDYR +. ..¥ POSITION... 
2655 026420 012711 000001 MOV ASELPCS, (R1) ‘SAVE PCSAVE... 
2656 026424 011137 003146 MOV (R1), IPCSAV : 
2657 026430 012711 000002 MOV #SELFLG, (R1) “SAVE FLAGS... 
2658 026434 011137 003150 MOV (R71), IFLAGS ; 
2659 026440 012711 000003 MOV #SELCSR, (R1) TSAVE CSR... 
2660 026444 011137 003152 MOV (R1),1CSR : 
2661 026450 012711 000004 MOV #SELMRR, (R1) ‘SAVE MAIN MEM-MGMT.. 
2662 026454 011137 003154 MOV (R1), IMAIN : 
2663 026460 012711 000005 MOV #SELHBA, (R1) ‘SAVE HISTO. BASE... 
026464 011137 003156 MOV (R1), IHBASE : 
2665 026470 012711 000006 MOV #SELXRR, (R1) ;SAVE AUX. MEM-MGMT.. 
026474 011137 003160 MOV {R1), JAUX s 
2667 026500 012711 000007 MOV #SELCBA, (R1) ‘SAVE CHAR. BASE... 
026504 011137 003162 MOV (R1), 1CBASE ; 
2669 026510 012711 000000 MOV #SELDSR, (R1) ‘END UP AT DSR... 
2670 026514 011137 003144 MOV (R1),1SDSR :...AND SAVE IT. 
2671 s BITB #IOKERR, INTFLAG ; DID WE GET AN ERROR INTERRUPT? 
5672 026520 105737 026107 TSTB _—sCINTFLAG * ANY ERROR FLAGS SET? 
2673 626526 001424 BEQ 1$ + BR IF NO | 
2674 026526 105737 026106 TSTB. —sINTMASK * YES. IS CHECKING TURNED OFF? 
2675 026532 100421 BM] 1$ > BR IF YES | 
5676 026534 013746 022300 . MOV EXTA,-(SP) : SAVE ERROR EXTENSION ADDRESS. 
5677 026540 012737 023324 022300 MOV WPTINER.EXTA SET EXTENSION TO PRINT TEST [IN ERROR, | 
2678 026546 013701 026112 MOV INTCPC,R1 ‘GET PC, 
2679 026552 004737 030216 JSR PC, INCERK OE EREMENT THE ERROR COUNTS | 
| 
| 
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GLOBAL SUBROUTINES SECTION SEQ 0060 
2680 026556 ERRDF 0, IFAULT,INTERR ;REPORT ERROR... : 
2681 026566 012637 622300 MOV (§P) +, EXTA SRESTORE EXTA 
2682 026572 006737 030254 JSR PC, CKEMAX 
2684 926576 012601 1$: MOV (SP)+,R1 ;RESTORE R1 
2685 026600 000002 RT] :..AND DISMISS. 

2687 : AND A SIMILAR ONE FOR THE LUT INTERRUPTS. 

2689 026602 000137 LDUN:  JMP a(rc)+ 

2690 026606 626606 LUTSAV 

2691 026606 017737 154230 003136 LUTSAV: MOV @LSR,ILSR : SAVE LUT REGISTERS. 
2692 026614 017737 154224 003140 MOV @LDR,ILDR 

2693 026622 017737 154220 003142 MOV @LMR, ILMR 

269% 026630 000002 RT] : AND DISMISS. 


2712 026650 
2713 

2714 026656 
2715 026664 
2716 026670 
2719 026704 
2720 

2721 026712 
2722 

2723 026714 
2724 026722 
2725 026726 
2726 026732 
2727 

2728 026734 
2731 026752 
coat 026754 


te. 026756 


005037 
000407 
012737 
000403 
012737 
012777 
004737 


052737 


013777 


012777 


026754 
176076 
176074 
100000 
027454 
026754 


176000 
040000 


026754 
027454 
023524 


000400 
001400 


000000 
154044 


154036 
027454 


027454 
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026754 
026754 
154154 


026754 
026754 


154116 


026754 


026754 


154050 


SEQ 0061 


: SUBROUTINE TO INITIALIZE THE CURRENT gl D ateciat 

: CALL ““CLRW’’ TO INIT WITH IMS IN WRITE MO 

; CALL “CLRRW'" TO INIT WITH IM'S IN WRITE- MORE TRACE MODE . 

> CALL ““CLRRW1"' TO INIT WITH IM°S IN WRITE=IN-RETRACE, 1°S-ONLY MODE. 


-ENABL LSB 


THE OPERATIONS ARE i tat 2 vie PROGRAMMED 1/0 SO THAT EXECUTION OF A DISPLAY 
; ae DOES NOT HAVE TO TAKE PLACE. 

CLRW on _— ;SAY CLEAR TO ‘WRITE-ONLY"’ MODE. 

CLRRW1: MOV ila SAY CLEAR TO READ/WRITE-1°S-ONLY. 


BR 
tapi MOV #RDWRT,CLMFCN ;SAY CLEAR TO READ/WRITE 


218: JSR PC,DPINIT DO INIT (CLEARS MEM, WRITE MODE, DISABLES J.S.) ;aaal 
1$: MOV #B1T15,aDYR : DO SOFT INIT TO CLEAR MEMORIES 

JSR PC WAI TF 

TST CLMF CN ;ANY THING ELSE TO DO? 

BEQ 3$ sEXIT IF NOT. 

BIC #176000,CLMFCN ;ZAP OUT OP-CODE. 

BIS #WRTMSR,CLMFCN INSERT CODE FOR WRITING INTO DYR. 
23: BGNSEG p KKK KKK KEE KK KEKE KKK KK BEGIN SEGMENT. 

MOV CLMFCN,@DYR WRITE MEMORY STATUS-BA REGISTER 

JSR PC ,WAITF WAIT FOR NOT BUSY. 

JSR PC, ERRCHK + CHECK FOR ERROR 

ENDSEG 3 KKK KEKE KKK KEKE KK KKK KKK KK END SEGMENT. 

ADD #CH1,CLMFCN ;BUMP THE CHANNEL #. 

BIT #CH3,CLMFCN ;DONE ALL CHANNELS? 

BNE 2s ;LOOP IF NOT. 
3$: RTS PC * RETURN WHEN DONE ALL 3 CHANNELS 
CLMFCN: 0 ;FUNCTION FOR CLEARING MEMORY. 

-DSABL LSB 


: ANOTHER TO RELEASE THE DPU. 
; EXECUTE ‘EXT STOP’’ IF HE*S RUNNING, ‘BUS-INIT’’ IF HE'S HUNG. 


RELEAS: Mov #SELDSR,@DSR :MAKE SURE WE SELECT REAL DSR 
TST aDsR ZEXIT IF DPU IS STOPPED. 


BM! 1$ sEXIT IF HE*S FREE. 

CLR aDSR iXCT "EXTERNAL STOP"’. 
JSR PC ,wAITF 

BCS 1$ sEXIT IF ig WORKED. 

:IT DIDN'T . XCT ii ~INIT. 

BRE SET BUS RESET 

JSR PC WAI TF AND walt AGAIN. 

1$: RTS PC 


: SUBROUT INE TO FILL ALL OF FREE CORE WITH PIXEL DATA 
; FOR BIT MAP FUNCTIONS. (RO) = DATA PATTERN, 
+ REGISTERS ARE NOT SAVED. 


y' 
Si 


—® 
VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113 29-JAN-81 17:22 PAGE 37-1 


GLOBAL SUBROUTINES SECTION SEC 0062 

2753 027014 010001 FILL1: MOV RO,R1 3; FILL WITH (RO). 

| 2754 027016 000402 SKP2 

2755 027020 010001 FILL2: MOV RO,R1 

2756 027022 005101 COM R1 : FILL WITH ALTERNATE WORDS. 

2757 027024 013702 003240 MOV FREE,R2 : POINTER. 

2758 027030 013703 003242 MOV FRESIZ,R3 ‘ WORD COUNT. 

| 2759 027034 042703 100003 BIC #1000038,R3 ; INSURE WC IS EVEN. 
2760 027040 010022 1$: MOV RO, (R2)* : 1ST WORD... 

2761 0270462 010122 MOV R1,(R2)+ 3..NEXT WORD. 
2762 027044 162703 000002 SUB #2.R3 
2763 027050 003373 BGT 1$ 
2704 027052 000207 RTS PC 


-——-------—-- 
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2821 : 
sB56 : SUBROUTINE TO BLAST THE LUT RAM WITH COLOR OR GREY-SCALE DATA. 
2824 027054 012701 107066 LUMIN: MOV ALUMTBL ,R1 ; GREY-SCALE TABLE ADDRESS. 
2825 027060 012746 000001 MOV #1,-(SP) ; LUT WORDS / SHADE. 
2826 027064 000404 SKP2+2 
2827 027 012701 110066 NTSC: MOV #NTSC8,R1 ; BASIC 8 COLOR TABLE ADDRESS. 
2828 027072 012746 000040 MOV #32.,- (SP) ; LUT WORDS / COLOR. 
2829 027076 000404 SKP2+2 
2830 027100 012701 110106 EXPR: MOV #EXPRM,R1 : EXPERIMENTAL 16 COLOR TABLE. 
soe) 027104 012746 000020 MOV #16. ,-(SP) ; LUT WORDS / COLOR. 
2833 027110 005737 003216 TST LUTAV 
2834 027114 001424 BEQ 3$ ; RETURN IF NO LUT INSTALLED. 
2835 027116 005077 153720 CLR @LSR ; ADDR 0, NO_INTERRUPTS. 
836 027122 052777 000100 153716 BIS AGCOFF ,@LMR ; GAMMA CORRECTION OFF. 
2837 027130 011600 1$: MOV (SP) ,RO ; SET ITERATION K. 
2838 027132 012177 153706 MOV (R1)+,@LDR ; BLAST THE RAM. 
2839 027136 005777 153700 2$: TST @LSR ; WAIT FOR READY. 
2840 027142 100375 BPL -4 
2841 027144 105777 153672 TSTB = @LSR : LAST ADDRESS DONE ?? 
2842 027150 001406 BEQ 3$ ; EXIT IF SO. 
2843 027152 005300 DEC RO 
2844 027154 001765 BEQ 1$ ; GET NEXT COLOR. 
2845 027156 016177 177776 153660 MOV -2(R1),a@LDR ; REPEAT THIS COLOR. 
2846 027164 000764 BR 2$ 
2847 027166 005726 3$: TST (SP) + ; FIX THE STACK.. 
a8 027170 000207 RTS PC j...AND RETURN. 
2850 ; BLAST 16 SHADES OF THE BASIC COLOR IN (R1). 
2851 > LOCATION ‘'SHADLY’’ SET BY CALLER TO PRODUCE A PLEASING 
soos ; VISUAL EFFECT. 
2854 027172 005737 003216 SHAD16: TST LUTAV 
2855 027176 001433 BEQ 3$ ; RETURN IF NO LUT INSTALLED. 
2856 027200 BREAK 
2857 027202 005077 153634 CLR @LSR ; ADDR 0, NO INTERRUPTS. 
2858 027206 052777 000100 153632 BIS #GCOFF ,@LMR >: GAMMA CORRECT OFF 
2859 027214 042701 177356 BIC #*(421,R1 > SET DIMMEST SHADE THIS COLOR. 
2860 027220 005002 CLR R ; 1ST SHADE IS ALWAYS BLACK. 
2861 027222 012703 000020 1$: MOV #16. ,R3 : 16 LUT WORDS / SHADE. 
2862 027226 010277 153612 2$: MOV R2,aLDR ; WRITE DATA. 
2863 027232 005777 153604 TST @LSR 
2 027236 100375 BPL 74 
2865 027240 013700 003220 MOV SHADLY ,RO ; DELAY. 
2866 027244 005300 DEC RO 
2867 027246 001376 BNE 2 
2868 027250 105777 153566 TSTB = @LSR ; LUT_RAM FULL ?? 
2869 027254 001404 BEQ 3$ ; EXIT IF SO. 
2870 027256 005303 DEC R3 ; THIS SHADE oe ?? 
2871 027260 001362 BNE 2$ ; NOT YET 
2872 027262 060102 ADD R1,R2 a es. INCREMENT THE SHADE. 
2873 027264 000756 BR 1$ :...AND CONTINUE. 
2874 027266 000207 3$: RTS PC 


eae Se ee eee 
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GLOBAL SUBROUTINES SECTION SEQ 0064 
2876 H 
2877 + SUBROUTINES TO TRANSLATE AN ABSOLUTE X OR Y TO SHORT FORM 
2878 : DELTA X OR Y. USED IN SVEC AND RPNT TESTS. 
2879 : INPUT RO = ABS CO-ORD, IN THE RANGE (1000 +/=76). 
Soar : OUTPUT RO = DX OR DY CORRECTLY POSITIONED AND SIGNED. 
2882 027270 020027 001000 SDY: CMP RO, #1000 
2883 027274 103003 BHIS .+10 :SKP3 IF POS DELTA. 
2884 027276 005400 NEG RO [MAKE NEG DELTA. 
2885 027300 062700 000100 ADD #1090,RO [SET SIGN BIT. 
2886 027304 042700 177600 BIC #*(177,RO ‘RO = +/=DY IN <6:0>. 
2887 027310 000207 ; RTS PC 
2889 027312 004737 027270 SDX: JSR PC,SDY iMAKE A DY 
2890 027316 000300 SWAB ~—s- RO _.MOVE TO HI BYTE. 
2891 027320 006200 ASR RO “RO = +/=DX IN <13:7>. 
2892 027322 000207 RTS PC 
2894 * SUBROUTINE TO CONVERT 12 BIT OCTAL TO ASCII FOR DISPLAY. 
2895 * R1 = OCTAL X OR Y CO-ORD AT ENTRY 
2896 : R1,,R2 = 4 DIGIT ASCII EQUIVALENT. “AT EXIT. 
vad4 : RO, R1, AND R2 NOT SAVED AT ENTRY 
2899 027324 012737 030060 003232 CNVRT: MOV #''00, TEMP1 :ASCII 00 
2900 027332 013737 003232 003234 MOV TEMP’ , TEMP2 *HERE TOO. 
2901 027340 042701 170000 BIC #*(7777,R1 ‘STRIP ANY CRAP BITS. 
2902 027344 010102 MOV R1,R2 
2903 027346 000302 SWAB sR? 
2904 027350 006202 ASR R2 
2905 027352 04270<c 177770 BIC #*C7,R2 
2906 027356 150237 0035232 BISB  _——R2, TEMP1 :1ST (HI ORDER) DIGIT. 
2907 027362 010102 MOV R1,R2 
2908 027364 000006 MOV #6,RO 
2909 027370 006202 1$: ASR R2 sSHIFT OFF 6 BITS. 
2910 027372 005300 DEC RO 
2911 027374 001375 BNE 
2912 027376 042702 177770 BIC #*C7,R2 
2913 027402 150237 003233 BISB  ——R2, TEMP1+1 :2ND DIGIT. 
2914 027406 010102 MOV R1,R2 
2915 027410 012700 000003 MOV #3.RO 
2916 027414 006202 2$: ASR R2 sSHIFT OFF 3 BITS. 
2917 027416 005300 DEC RO 
2918 027420 001375 BNE 2$ 
2919 027422 042702 177770 BIC #*(7,R2 
2920 027426 150237 003234 BISB  R2,TEMP2 73RD DIGIT. 
2921 027432 042701 177770 BIC a 
2922 027436 150137 003235 BISB _—sR1, TEMP2+1 74TH wae LAST) DIGIT. 
2923 027442 013701 003232 MOV TEMP1,R1 ‘HI HALF => R1. 
2924 027446 013702 003234 MOV TEMP2.R2 :10 ae => R2. 


2925 027452 000207 RTS PC AND EXIT. 


— 
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SUBROUTINES SECTION 


2967 027562 
2968 027564 


012727 
7 


012746 


000010 


005670 
153344 


027530 
027462 


023420 
011610 
000001 


000002 
027564 





SEQ 0065 
; pate ® TO WAIT FOR DISPLAY STOP FLAG. 
; RETURN WITH ‘'C’' = 1 AS SOON AS STOP OCCURS. 
3 OTHERWISE, “'C’’ = "0 AND RETURN AFTER APPROX 300 MSEC. 
WAITF: BREAK ; DO A SUPVSR BREAK FIRST. 
MOV #3000. ,(PC)+ ; 300 MSEC TIMER. 
1$ 3000 
2$ TST aDSR 
BMI 3$ ; EXIT ON STOP F 
fy, 7 3 OTHERWISE, WAIT. 760 USEC... 
BNE 2s 3+ +AND TRY AGAIN. 
CLC ; C = 0, DPU STILL _RUNNING.. - 
SKP1 ...0R HUNG-UP AFTER 300 MSEC. 
3$ os pc > C = 1, DPU IS STOPPED. 


BNE 
DELAY ae as te (K100US 
FOR SLOW CPU'S (11/03 THRU 10) 


SUBROUTINES TO PAUSE (WAIT) IN INCREMENTS OF 100 USEC. 
BASED ON AWERMDEC RO. (CPU DEPENDANT) TO EXECUTE 


) SHOULD BE S xitou “' FOLLOWS: 


FOR FAST CPU'S (11/34 THRU 70), K100US 32. 
PAUSE 1 tea #10000.,-(SP) ; 1 SEC TIMER. 
PAUS.5: a #5000. ,-(SP) 3; 172 SEC TIMER. 
US100: MOV #1,-(SP) ; 100 USEC TIMER, 

MOV (SP) ,-(SP) 3; SAVE THE COUNT 

MOV RO,2(SP) ; SAVE RO 
1$ ~'s4 K100US ,RO 

BNE ee 4 ; 100 USEC (MORE OR LESS) LOOP. 

DEC (SP) 

BNE 1$ ; VARIABLE LOOP. 

TST (SP) + : FIX STACK... 

MOV (SP)+,RO ; RESTORE RO 

RTS PC ;..-AND RETURN. 
K100US: 8. ; 100 USEC TIMER. 


VS 
IN 


Bee a ee ET Pea “eatin searing: 5) a AS 


B 6 
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2971 ; ROUTINE TO TEST FOR A a IN THE RANGE bg THRU (R2). 
297 ; ON RETURN, IF ‘'C’' = 1, (R1) = NEXM ADDRESS 

297 H —_— =< 0; a ADDRESSES OK. 

2974 : 

2975 ;CALL: MOV ADR1,R1 

2976 H MOV ADR2,R2 

2977 ; JSR PC,NXM 

$355 : RETURN : TEST ‘'C'’ AND PROCEED. 

2980 027566 012737 027620 000004 NXM: MOV #2$ 044 ; SET BUSERR VECTOR. 
2981 027574 012737 000200 000006 MOV #PRI04 ,a46 

2982 027602 005003 CLR 3 


R LAG. 
2983 027604 005711 1$: TST (R1) vest ~ ADDRESS(ES). 
2984 71f ANY TRAP, CONTINUE AT 2$. 
2985 027606 020102 CMP R1,R2 SOTHERWISE, CONTINUE HERE. 
2986 027610 001407 BEQ 3$ :BR IF FINISHED ts NEXM'S). 
2987 027612 062701 000002 ADD #2,R1 SET NEXT ADDRESS.. 
2988 027616 000772 BR 1$ 2 AND CONTINUE. 


2989 

2959 027620 005103 2$: COM R3 ;GOT ONE, SET FLAG... 

2991 027622 012716 027630 MOV #3$, (SP) 

2992 027626 000002 RTI .-AND DISMISS INTERRUPT.. 

2993 027630 3$: CLRVEC #4 «AND GIVE BACK THE VECTOR. 
2994 027636 005703 TST R3 ‘bid WE CATCH ONE ? 

2995 027640 001401 BEQ +4 aN. "c'' = 0, SKIP "NEXT 

2996 027642 000261 SEC sYES, ‘C’’ = 1, (RI) = NEXM ADDR. 
2997 027644 000207 RTS FC 


SUBROUTINE TO EXECUTE TEST ITERATIONS. 
EXIT WITH ‘'C’' SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERG. 
LOOP COUNTER IS SET BY ‘BEGIN.TEST’’ MACRO. 


CALL: LOOPTO ARG 


‘OOP: 

3006 027646 005737 002510 TST NOITS ; ITERATIONS INHIBITED? 

3007 027652 001006 BNE 1$ 3 VES. 

3008 027654 005737 003030 TST QvP ; NO. 

3009 027660 100403 BMI 1$ ;LOOPS DISALLOWED IN QUICK PASS. 


[7 Be Be Be Be Be Oe 


0 027662 005337 027700 DEC LOOPK ; BUMP LOOP COUNTER 

1 027666 001002 2$ 

2 0596 000241 1$: 8 ;LOOP DISALLOWED, OR DONE. 
¢ 027674 000261 2$: SEC ;LOOP ENABLED. 
6 


027676 000207 RTS PC 
027700 000000 LOOPK: 0 ; LOOP (ITERATION) COUNTER. 


Fa nr eee 


a a ee 
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SEQ 0067 
3018 ; 
3019 ; PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
3020 : INCREMENT ‘‘TESTK'' TO INDICATE THE NUMBER OF TESTS 
3021 : IN THE CURRENT RUN SEQUENCE. 
58 > CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 
3024 ; *** NOTE: REQUIRES PRIOR USE OF THE ‘BEGIN. TEST'’ MACRO 
S52 : TO SET NAME AND NUMBER POINTERS. 
3027 027702 005037 023064 TSTGO: CLR SIFLAG : CLEAR ‘SOFT INIT'’ FLAG 
3028 027706 005037 030130 CLR ERRK ; CLEAR LOCAL ERROR COUNTER. 
3029 027712 005037 022300 CLR EXTA : CLEAR ERROR EXTENSION FLAG. 
3030 027716 105037 026106 CLRB INTMASK : CLEAR INTERRUPT mask (CHECK ERROR) 
3031 027722 013700 003026 MOV UNITN,RO ; GET THE UNIT NUMBER 
3032 027726 006300 ASL RO : AND MAKE IT A WORD OFFSET. 
3033 027730 005737 003226 TST NODEV * DID STARTUP FIND THE DEVICE? 
3034 027734 001430 BEQ 4$ ; BR IF YES 
3035 027736 100010 BPL 3$ : BR IF NOT IDLE 
3036 027740 052760 160000 003302 BIS #160000 ERTABL (RO) : FLAG ERROR IN THE ERROR TABLE 
3037 027746 ERRDF  1,NXR,NXRERR NO DEVICE HERE == PRINT IT 
3038 027756 000407 BR 2$ 
3039 027760 052760 160001 003302 3$: BIS #160001 gERTABL (RO) : FLAG ERROR IN THE ERROR TABLE 
3040 027766 ERRDF 2,NOIN 3; DEVICE NOT IDLE 
3041 027776 012737 177777 003224 2%: MOV #-1 Oye : DROP THE UNIT 
3042 030004 DODU UNI TN 
3043 030012 DOCLN ; ABORT THE PASS 
ee: 030014 000422 BR 5$ 
3046 030016 4$: RFLAGS RO : GET THE OPERATOR FLAGS. 
3047 030020 032700 001000 BIT #PNT,RO + PRINT THE TEST NUMBERS? 
3048 : TST TIDFLG ; WANNA TYPE THE TEST ID? 
3049 : E 1$ : NAH! 
3050 030024 001412 BEQ 1$ ; BR IF NO 
3051 030026 PRINTF TNA. TNUM : PRINT NUMBER AND TITLE. 
3052 030052 005237 030070 1$: INC TESTK ; BUMP TEST COUNTER. 
3053 030056 004737 026114 JSR PC, ENAINT : ENABLE INTERRUPTS 
3054 030062 000207 S$: RTS PC 
3055 030064 000000 TNUM: 0 
3056 030066 000000 TNAM: 0 
24 030070 000000 TESTK: O : NUMBER OF TESTS RUN THIS PASS. 
3059 > AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
oot * IF NORMAL ERROR REPORTING IS DISABLED (FLA:IER). 
3062 030072 TSTEND: RFLAGS RO 
3063 030074 030027 020000 BIT RO,AIER 
3064 030100 001412 BEQ 1$ ; BR IF “‘IER'' NOT SET. 
3065 030102 PRINTF #ESUM,ERRK : PRINT ERROR COUNT. 
3066 030126 000207 1$: RTS PC 
3068 030130 000000 ERRK: 0 ; LOCAL ERROR COUNT. 
3069 930132 045 101 040 ESUM: -ASC1Z nT %D%A_ERRORS/ 
$70 030151 105 122 122 EMAXD®: . “ASCIZ 7ERROR LIMIT REACHED == DROPPING UNIT/ 
3072 


3073 ; ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 


| 
| 
| 
| 


Se 
eee 


3075 030216 


3084 0302 
3085 030252 
3086 

3087 030254 
3088 030256 
3089 030262 
3090 030264 


3104 030352 
3105 
3106 030354 


005237 
010046 


103417 
032700 


001013 
012737 


012600 
000207 


010046 
032700 


012737 


000401 
012600 
000207 


een eT ENV TER Bee icnteciainien 
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030130 
003026 


003302 “=== 


007777 


003026 
003302 
170000 
002516 


030130 002514 


000040 


177777 + 003224 


000040 


177777 + 003224 


INCERK: 


1$: 


CKEMAX: 


1$: 


2$: 


CKDROP: 


INC 
M 


ERRK 
RO,-(SP) 
UNITN,RO 

RO 

MERTABL ,RO 
(RO) 

#7777, (RO) 
1$ 

(RO) 

(S$?) +,RO 

PC 

RO,-(SP) 
UNITN,RO 

RO 

ERTABL (RO) ,RO 
#170000 ,RO 
RO, GERRMAX 
pepe 


RO 
#IDU,RO 
2$ 
#-1,DUFLG 
4, EMAXDU 
UNITN 


(SP)+,RO 
PC 


RO,~(SP) 
RO 
#IDU,RO 
1$ 
(SP)+,RO 


#-1,DUFLG 
UNITN 


2$ 
(SP)+,RO 
PC 


Be Be Be Be Be Se Be Be Be Be Be Be Be 


pte ad LOCAL ERROR COUNT 


0 
GET UNIT NUMBER 
IT A WORD OFFSET. 


AND MAKE 
: RO GETS ADDRESS OF ERROR TABLE ENTRY. 
; INCREMENT THE DEVICE ERROR COUNT 
; tN - OVERFLOW THE FIELD? 


R IF NO. 
YES == BACK IT UP TO 7777. 


; RESTORE 


RO 
RETURN TO CALLER. 


SAVE RO 
GET UNIT NUMBER 
AND MAKE IT A — OFFSET 
GET ERROR TABLE ENTR 
EXTRACT ERROR COUNT FIELD 
IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 


BR IF YES 
a 5 LIMIT EXCEEDED FOR THIS TEST? 


R_IF 
; GET OPERATOR FLAGS 
; IS DROPPING INHIBITED? 
; BR IF YES. 
; NO == DROP THE UNIT 


RESTORE RO 
RETURN TO CALLER 


;ABORT THE PASS 


SEQ 0068 


— 
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GLOBAL SUBROUTINES SECTION SEQ 0069 
3118 ; 
3138 ; SUBROUTINE - CONFIGURE VSV11 SYSTEM. 
3121 030414 CONF IG: 
3122 030414 004737 025402 CONMEM: JSR PC,DPINIT 
3123 030420 012700 040000 MOV #40000 ,RO ; PROTECT ALL MEMORIES 
3124 030424 010077 152410 10$: MOV RO.aDYR 
3125 030430 004737 027454 JSR PC ,WAITF 
3126 030434 062700 000400 ADD #CH1,RO 
3127 030440 032700 001400 BIT #C0:43,R0 
es 030444 001367 BNE 10$ 
3130 030446 012777 000000 152362 MOV #0,aDXR : TRY A PIXEL READ. 
3131 030454 004737 027454 JSR PC ,WAITF 
3132 030460 103410 sd ; BR IF UNSUCCESSFUL. 
3133 030462 DFERR ; PIXEL READBACK HANGS UP. 
3134 030502 012737 144003 023056 1$: MOV 122003, ~ eet 
3135 030510 004737 022440 JSR PC,CSRCHK 
3136 030514 005005 CLR RS : INIT MEM TABLE PTR. 
3137 030516 012777 000013 152310 2$: MOV #13,aDSR ; CLEAR CSR. 
3138 030524 005065 003256  . CLR CTABM(RS) ; CLEAR TABLE ENTRY. 
3139 030530 010501 MOV R5,R1 : ENABLE MEM R/W. 
3140 030532 006201 ASR R1 
3141 030534 000301 SWAB R1 
3142 030536 052701 040060 BIS #40060,R1 
3143 030542 010177 152272 MOV R1,aDYR 
3144 030546 004737 027454 JSR PC,WAITF 
3145 030552 012777 000000 152256 MOV #0, aDXR ; PIXEL READ. 
3146 030560 004737 027454 JSR PC ,WAITF 
3147 030564 012777 000003 152242 MOV #3,aDSR 
3148 030572 017702 152236 MOV aDSR,R2 ; IS MEM THERE? 
3149 030576 100440 BMI 5$ 3; NO. 
3150 030600 012777 000000 152226 MOV #0,aDSR : YES. GET PIXEL DATA. 
3151 030606 017702 152222 MOV aDSR,R2 : 
3152 030612 052702 176003 BIS #176003,R2 ; INVERT PIXEL DATA. 
3153 030616 005102 COM R2 
3154 030620 010265 003256 MOV R2,CTABM(RS) : PUT PIXEL DATA IN MEM TABLE. 
3155 030624 012703 000010 MOV #8.,R3 ; GOT AN EVEN NUMBER OF PIXEL BITS? 
3156 030630 005004 CLR R4 
3157 006202 ASR R2 
3158 030634 006202 3$: ASR R2 
3159 030636 032702 000001 BIT #1,R2 
3160 030642 001401 BEQ 4$ 
3161 030644 005204 INC R4 
3162 030646 005303 4$: DEC R3 
3163 030650 001371 BNE 3$ 
3164 030652 032704 000001 BIT #1,R4 
3165 030656 001410 BEQ 5$ 
3166 O HRDERR SCPRE,SYSCON ; NO. 
3167 030700 042701 000060 5$: BIC #60,R1 : YES. RE-PROTECT THE MEM. 
3168 030704 010177 152130 MOV R1,aDYR 
3169 030710 004737 027454 JSR PC ,WAITF 
3170 030714 062705 000002 ADD #2,R5 ; NEXT MEM, 
3171 030720 020527 000010 CMP R5,410 > ALL MEMS CHECKED? 
3172 030724 001274 BNE $ ; NO. 
3173 030726 012737 000010 003252 68: MOV #BIT3,MEMFLG : YES. SET ONE FLAG TO INDICATE MEMS AVAIL. 
3174 030734 012701 003256 MOV #MEMTAB,R1 : 
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3175 030740 
030742 


SIN™ 
NO 
es 
oO 
N 
Ps 
& a 


oo 
oO 
Oo 
Ww 
oO 
™“N 
a 
Oo 


W 
aS 
S35 
mo 


IWWNWWNWWAW 


31046 


SSLKARELLESELRARALS 
COO OOO ratnatena 


31 
31 


WWMM 


eolelelslojlelele) Oo 
WWWWWNWWWWNAWWWNWWAANWWS 
NN > 


Ww 
POROMO 
Dw) 
Owe 
osoo 0 
WWNAN WW 
— ed —+ ee ee ee ed ow od = 
— — ed 
RS 


3221 031202 


005721 


000410 


005737 


001410 


012737 


006237 


000020 
003252 


025402 


000033 
003270 


042100 


150000 
100000 


003270 


000002 
000010 


003270 


003230 
100000 


000002 
003300 


002512 
003256 
003270 


000010 


003270 


000020 
003254 


ro 
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7$: 


003252 
8$: 


CONSYC: 


152036 1$: 


152002 


003270 


es: 


3$: 


003022 
003024 


003254 9$: 
10$: 
003254 


(R1)+ 

8$ 
#BITS,MEMFLG 
MEMFLG 


7$ 
PC,DPINIT 
R3 


RS 
#13,aDSR 
CTABS (RS) 
R5,R1 

R1 


R1 
#42100,R1 


2s ; 
#BIT15,CTABS(RS) ; 


@DYR,R 
#157777,R2 
Re. CTABS (RS) 


#2,R5 
R5,4CTABS+10 
3$ 

6$ 
SCIDE,.SYSCON 
MF GFLG 

» eeleeaiatethates 
SYCTAB,MF GSO 
SCME ,SYSCON 
#BIT3,SYCFLG 
#SYCTAB,R1 
(R1)+ 

11$ 
MBIT4,SYCFLG 
SYCFLG 


INIT SYNC CHAN TABLE PTR. 


CLEAR CSR. 


CLEAR TABLE ENTRY. 
READ CURSOR STATUS. 


; GOT A DATA READY ERROR? 


; YES. (NO CHAN HERE). 
NO. SET CHAN EXISTS IN TABLE. 
; GET INTERLACE BIT. 


; SET IT IN TABLE. 


; REMEMBER INTERLACE/NON-INTERLACE STATUS 
(R3 HAS LAST INTFRLACE BIT FOUND). 


Be Be Se Se Be Be Be Be Be 


Ba Bae Fe Be Be Be 


REMEMBER IT IN 


; NEXT SYNC CHAN 
; —"y SYNC CHANS 


; NO. 
- YES. ALL INTERLACE BITS THE SAME? 


R3. 
* CHECKED? 


GOT AN ENTRY IN TABLE? 


NO. 
YES. INTERLACE BIT SAME? 


NO. 
YES. NEXT TABLE ENTRY. 
DONE ? 


NO. 
YES. 


MANUFACTURING FLAG SET? 


NO. 
ES. NEW MEM 0 = MFG MEM O MASTER? 
NEW SYNC CHAN 0 = MFG MASTER SYNC CHAN 0? 


NO. 


SET ONE FLAG TO INDICATE SYNC CHANS AVAIL. 


SEG 0070 


VI 
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3232 031264 
3538 031266 
3234 
3035 

% 


103370 
000207 


BC 
RT 


C 
S 


10$ 


PC 


SEQ 0071 


H 6 
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$238 3 
Sin ; SUBROUTINE = ENABLE MEM MGT. 
3241 031270 005737 003244 KTON: TST KTFLG : GOT KT? 
3242 031274 001403 BEQ 1$ 3 NO. 
3243 031276 012737 000001 177572 MOV #1,SRO : YES. ENABLE KT11. 
este 031304 000207 1$: RTS PC 
3246 
3247 
3248 ; 
4 : SUBROUTINE = DISABLE MEM MGT. 
| 3251 031306 KTOFF: ;TST KTFLG : GOT KT11? 
3252 7REQ 1$ : NO. 
3253 031306 000240 NOP 
3254 031310 000240 NOP 
255 031312 012737 000000 177572 MOV #0,SRO ; DISABLE KT. 
3256 031320 000207 1$: RTS PC 


I 
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a 


3258 
3259 
3260 
3261 

3262 931322 
3263 031326 
3264 3 


3276 
3277 C31404 
3278 031410 


ges 


28 


Ooooo 
paar Sor Sepa 
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003244 
Oster 


172354 
000200 


031306 


172354 


003244 
172354 


PR ee Be Oe ee 


1$: 
2s: 


3$: 
9: 


SUBROUTINE = FILL ALL MEMORY OVER 28k WITH ‘‘STOPN’’. 
(NOTE = ENABLE KT BEFORE CALLING THIS). 


{ TBKGD: TST 


KTFLG 
9$ 
PC,KTON 


#STOPN, RO 
#1600, a#k IPARG 
#140000,R1 


@AK [PARG ,KTFLG 
#200, @#K IPAR6 
1$ 


PC ,KTOFF 
PC 


GOT KT? 
NO. GET OUT 
YES. ENABLE K 


FILL ALL MEM (528K) WITH BACKGROUND. 


DISABLE KT. 


SEQ 0073 


i Vs 


TINES SECTION 


3280 
$e; 
3583 031412 


3305 
3306 031462 


3310 031472 
3311 031474 


031462 
031464 


031464 


031462 


J 
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: SUBROUTINE TO SAVE RO-R5. 


SAVERS: MOV 


; SUBROUTINE TO 


RESTRS: mov 


SAVED: 


jololelel ela) 


RO, SAVED 
#SAVED+2,R0 
R1,(RO)+ 
R2,(RO)+ 
R3,(RO)+ 
R46, (RO)* 
RS, (RO)+ 

PC 


RESTORE RO=R5. 


#SAVED+2,R0 
(RO) +,R1 
(RO) +,R2 
(RO) +,R3 
(RO) +,R4 
(RO) +,R5 
SAVED ,RO 

a4 





=. 


-— 


| 
| 


! 


3323 0.1536 
3324 031540 
3325 


3330 031562 


8 
3339 031562 
0 031566 


3354 031574 


3365 031654 
3366 
3367 





012737 


012737 


004737 
000240 


025570 


000207 


000010 


000040 


031656 
000240 


000212 
000137 000210 


003240 
003242 
003242 


027564 


027564 


000204 
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< SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 


ENVIRN: MEMORY RO 
MOV RO, FREE : GET 1ST FREE ADDRESS... 
12 :...AND WORD COUNT. 


ES 
IZ 
"s ; GET NUMBER_OF UNITS 


MOV LSUNIT, 
108: SUB #7 ,FRES 3; TAKE AWAY 7 WORDS PER UNIT 
DEC R2 
BNE 10$ 
#8.,K100US ; ASSUME LSI FOR 100US TIMER. 


READBUS 
BCOMPLETE 1$ 
MOV a ; NOT LSI == CHANGE TIMER. 


1$: MOV 60. ,HZ ; ASSUME 60 HZ SYSTEM. 
; MOV AMAXY60, YMAX $ 

; CLOCK L,RO 

: BNCOMPLETE 2$ 

; CLR a@0(RO) ; INSURE CLOCK IS OFF. 
: MOV 6(RO) ,HZ ; SET ACTUAL FREQUENCY. 
: CMP HZ #60. 5 

; BEQ 2$ : 

Py MOV #MAXY50, YMAX Z 

e$: PC,KTINIT : INIT KT11 MEM MGT. 


JSR 
240,240 
© He III IT TI IOI TC IIIT TT TOT TTT TOT TOT TO TI TOTTI TT TT ITT TT TERE 
NOW THE FOLLOWING CODE PROVIDES A KEY RESTART FOR 

THE DIAGNOSTIC SUPERVISOR (DRS), AND FOR XXDP+ MONITOR. 
IF EITHER ONE CHANGES, THIS WILL PROBABLY TURN TO SHIT 
BUT FOR NOW -- IT'S CONVENIENT FOR DEBUGGING PURPOSES. 


THE FOLLOWING OFFSETS APPLY TO DRS REV D. 


oe Se Be Se Be Oe & 


KX. ENTRY= 25570 : DRS (REV D) ENTRY FROM XXDP+. 
SUPVSR= 26050 * DRS (REV D) SUPERVISOR RESTART. 
XX.EXIT= 26072 : DRS (REV D) EXIT TO XXDP+. 
XXDP= 3726 * XXDP* RESTART ADDRESS (XX3726). 
KLUDGE: EMT 42 > XXDP+ COMM BLOCK POINTER => RO 
MOV RO, XXCOMM + SAVE IT. 
BIC #7777, RO * MASK TO 2K PAG 
SUB #27000, RO +...MINUS DRS SIZE (5.75K)... 
ADD #SUPVSR,R =~ "PLUS DRS RESTART OFFSET... 
MOV RO, a#2 +127 = DRS RESTART ADDRESS. 
MOV #137, a#204 = LOC 204 = JMP DRS-RESTART. 
MOV XXCOMM,R + GET POINTER AGAIN. 
BIC #7777 ,RO * MASK TO 2K PAGE... 
ADD AXXDP,RO +. ..PLUS RESTART OFFSET... 
MOV RO, a#212 +1.) = XXDP+ RESTART ADDRESS. 
:"LOC 210 = JMP XXDP+ 


PRENATAL AAA ASA A Te eS 


SEQ 0075 


2 eee 





= 
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GLOBAL SUBROUTINES SECTION 


3369 

te 

3371 

3372 o1678 
3373 031662 


3390 031766 

3391 

3392 031770 
031770 
031774 

3393 031776 


3394 
3395 032002 


012716 
000002 
010037 
000207 


003244 
002120 


090004 
031770 
177572 


172340 
077406 


000200 
002000 
177600 


031776 
000004 


001577 


600004 


003244 
003244 


177740 


* SUBROUTINE = IF OVER 28K & KT11 


KTINIT: CLR 
CMP 


2$: FORRT I 
MOV 


RTI 
MOV 


9$: RTS 


KTFLG 
LSHIME ,#1577 
9$ 
@FERRVEC ,RO 
#2$ ,AAERRVEC 
a4SRO 
LSHIME ,KTFLG 
#17 


7,KTFLG 
wit , AHERRVEC 


sf ,42000 
#177600,-(R1) 
9$ 


#.+6, (SP) 
RO, a@#ERRVEC 
PC 


AVAIL, INIT KT11. 


44 ENOUGH MEMORY (>28K)? 
SAVE OLD ERR wt PTR. 
VEC PTR 


RAP_IF NO). 
YES. SET KT FLAG. 


; RESTORE te ERR VEC PTR. 
RO = AR 


DAT 
R1 = KI REGS. PTR. 
SET DESCRIPTOR REG. 
SET KIPAR REG. 
BUMP AR DATA BY ‘‘6K"’. 
AT ‘ ‘I /0' ws 


NO. 
YES. SET KTPAR7 FOR I/O. 


FORCE RTI RETURN TO - 
NEXT 


LOC. 
; RESTORE OLD ERR VEC PTR. 


SEQ 0076 





r SS |S 
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INITIALIZE SECTION SEQ 0077 
3397 -SBTTL INITIALIZE SECTION 
3398 
3399 p++ 
3400 : THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
ned > AT THE BEGINNING OF EACH PASS. 
3403 032004 BGNPROT 
3404 032006 177777 177777 177777 -1, -1, -1, -1 ; NO DEVICE PROTECTION REQUIRED. 
3405 032014 ENDPROT 
3406 
os 032014 BGNINIT 
3409 7 IF ‘'START'' OR ‘RESTART’, SET QUICK=PASS FLAG AND BUS-INIT. 
x14 ; IF ‘'CONTINUE’’, NOTHING IS REQUIRED. 
3412 032014 005037 923064 CLR SIFLAG CLEAR ‘'SOFT INIT’’ FLAG 
3413 032020 READEF #EF.CONTINUE 
3414 032026 BNCOMPLETE 1$ 
3415 032030 023737 003026 002012 CMP UNI TN, L$UNIT UNIT _IN RANGE? 
3416 032036 103056 BHIS 4$ IF NO. 
3417 032040 005737 003224 TST DUFLG “DROPPED UNIT? 
3418 032044 100460 BMI NXTU BR IF YES 
3419 6 013701 003026 MOV UNITN,R1 
3420 032052 006301 ASL R1 
3421 032054 005761 003302 TST yt oats 
3422 032060 001504 BEQ SETU 
3423 032062 032761 040000 003302 BIT =, gon ERTABL (R1) ; DROPPED? 
3424 032070 001046 BNE 
3425 032072 EXIT INIT 7DO NOTHING IF ‘'CONTINUE"’. 
3426 032076 1$: READEF #EF.NEW 
3427 032104 BNCOMPLETE NXTU TAKE NEXT UNIT IF NOT NEW PASS. 
3428 032106 READEF #EF.START 
3429 032114 BCOMPLETE 2$ 
3430 032116 READEF #EF.RESTART 
3431 032124 BNCOMPLETE 31$ 
3432 032126 2$: ; 1ST PASS, ys Wee 
3433 032126 BRE SET BUS RESET 
3434 032130 012737 177777 003030 MOV #-1,QVP Be . QUICK V VERIFY 
3435 032136 005037 030070 CLR TESTK 2. CLEAR TOTAL TEST COUNT. 
3436 032142 004737 031476 JSR PC, ENVIRN : SET ENVIRONMENT . 
3437 032146 012700 003302 MOV MERTABL , RO 
3438 032152 005020 30$: CLR CLEAR THE ERROR TABLE 
3439 032154 020027 003502 CMP RO. O PERTABE 
3440 032160 103774 BLO 30$ 
3441 032162 000404 BR 4$ 
3442 032164 005037 003030 31$: CLR QvP 
Seal 032170 000137 032240 JMP PASRPT 3GO REPORT THE STATUS 
3445 032174 4$: 
3446 032174 012737 177777 003026 NEWPAS: MOV #-1,UNITN 7 INIT UNIT NUMBER 
3447 032202 005037 032726 CLR DEVCNT [CLEAR COUNT OF DEVICES RUNNING 
3448 032206 NXTU: BREAK 
3449 032210 005237 003026 INC UNI TN 7..-AND SET NEXT UNIT NUMBER. 
3450 032214 023737 003026 002012 CMP UNITN,L$UNIT 
3451 032222 103423 BLO SETU 
3452 032224 012737 177777 003224 MOV 4-1 ,DUFLG 
3453 032232 000401 BR 11$ 








“+o 
es 
=> 

< 
—Y 
NS 


64 
3465 032266 
3466 032270 
3467 032272 
3468 


3469 032272 


3478 032332 
3479 


3480 
3481 032334 


3509 47 
3510 032500 


000240 
023727 


012737 
005037 


012737 


002012 
032726 


000100 


003224 
032726 


003032 


000002 
003046 


003050 
003052 
026242 


003054 
026274 


003056 
026210 


003060 
026326 


003062 
026602 


003216 
001676 
000074 
000062 
001776 


003064 
002502 


040000 


000001 


003250 
003246 


003246 
003250 


003064 


11$: 
PASRPT: 


10$: 
SETU: 


20$: 


21$: 


N 6 
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E SECTION 


DOCLN 
NOP 
CMP LSUNIT,#1 
BLOS NEWPAS 
TST DEVCNT 
BEQ NEWPAS 
RFLAGS R 
BIT #ISR,RO 
BNE NEWPAS 
DORPT 

NEWPAS 
GPHARD UNITN,RO 
BNCOMPLETE NXTU 
CLR DUFLG 
INC DEVCNT 
MOV (RO)+,R1 
MOV #DPC ,R2 
MOV R1,(R2)+ 
ADD 2,R1 
CMP R2,ALMR 
BLOS 20$ 
MOV (RO) +,R1 
MOV (RO) ,R2 
MOV (RO) +,DPRI 
MOV R1,STPV 
MOV ADSTP,(R1)+ 
MOV R2,(R1)+ 
MOV R1,JSMV 
MOV ADJIM, (R1)+ 
MOV R2, (R1)+ 
MOV R1,TOTV 
MOV #DTO, (R1)+ 
MOV R2, (R1)+ 
MOV R1,JSSV 
MOV #DIS, (R1)+ 
MOV R2, (R1 + 
MOV R1,LUTV 
MOV #LDUN, (R1)+ 
MOV R2,(R1)+ 
MOV (RO) +,LUTAV 
MOV AMAXY60 , YMAX 
MOV #60. ,HZ 
TST (RO) + 
BEG 21$ 
MOV #50. ,HZ 
MOV #MAXYS5O, YMAX 
CLR OPTi 
TST DPUMOD 
BNE 1$ 
MOV #1,0PTI 


;ABORT, NO MORE UNITS. 


HOW MANY UNITS SELECTED? 
;BR_IF 1 


; ONLY 
zARE ANY STILL RUNNING? 
BR IF NO 


;SHOULD WE PRINT STATISTICS 
IF NO 


:GET UNIT N P=TABLE POINTER. 
IF UNIT NOT AVAILABLE. 
:CLEAR *DROPPED'' FLAG. 


; GET 1ST REGISTER ADDRESS. 


GET 1ST VECTOR ADDRESS. 

GET INTERRUPT PRIORITY 

SET INTERRUPT PRIORITY. 

SET STOP VECTOR POINTER... 
.- VECTOR.. 

72 "AND PRIORITY 

DITTO JOY-STICK MATCH. 


; DITTO TIME-OUT. 


* DITTO JOY-STICK SWITCH. 


BeBe Be Be Se Be Be 


; DITTO LUT DONE. 


GET ‘LUT AVAILABLE’’ ENTRY 
ASSUME 60HZ FREQUENCY. 


WHAT IS SELECTED FREQUENCY? 
BR IF 60HZ 
SAY 50 HZ 
AND SET UP FOR 512 VISIBLE LINES 


; DPU ONLY? 


; SKIP NEXT IF DPU-ONLY 


[SET OPTIONAL I(NTENSIFY) BIT. 
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INITIALIZE SECTION SEQ 0079 


3511 032506 1$: 
a21§ : TST QvP 31ST PASS ?? 
351 ; BEQ 5$ 3NO, SKIP THE PASS 1 STUFF. 





—_—-—----— 


| ySV11/VS11 
| INITIALIZE SECTION 
3515 
3516 
3517 
3518 
3519 032506 013701 003026 
3520 032512 006301 
3521 032514 052761 100000 
22 032522 0050 022300 
3523 032526 023727 002012 
032534 101416 
3525 032536 
3526 032540 032700 001000 
3527 032544 001412 
3528 032546 
3529 032572 
3530 032572 005037 3226 
3531 032576 013701 003032 
3532 032602 013702 003040 
3533 032606 0047 027566 
3534 032612 300 
3535 032614 010137 003226 
032620 0004 
3537 032622 012777 000000 
032630 005777 150200 
3539 032634 1004 
3540 032636 013701 003026 
3541 032642 
3542 032644 005261 003302 
3543 032650 012737 000001 
3544 032656 012737 177777 
3546 032664 005737 003216 
3547 032670 001412 
3548 032672 013701 003042 
3549 032676 013702 003046 
3550 032702 027566 
3551 032706 103003 
3552 032719 012737 000000 
3553 
3554 
3555 
3556 032716 
3557 032724 
3558 
3559 032726 000900 
3560 032730 045 116 
3561 
3562 
3563 
3564 
3565 
566 
3567 
3568 
3569 032776 005737 003020 
3570 033002 001402 
3571 033004 062716 000004 





003302 
000001 


150204 


003226 
003224 


003216 


045 


CF 
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1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 


MOV UNITN,R1 


ASL R1 
BIS #BIT15, ERTABL (R1) ; SAY DEVICE RUNNING 
CLR EXTA ; CLEAR ERROR EXTENSION FLAG. 
CMP LSUNIT #1 ; ARE WE TESTING MULTIPLE UNITS? 
BLOS 103 ; BR IF NO. 
RFLAGS RO ; YES == GET OPERATOR FLAGS. 
BIT #PNT RO 3; SHOULD WE PRINT UNIT #? 
10$ ; BR IF NOT. 
108 PRINTF #PUNIT,UNITN ; PRINT THE UNIT # 
CLR NODEV 
MOV DPC,R1 
MOV DYR,R2 
JSR PC .NXM jena * ALL 4 DPU REGISTERS.. 
BCC 2$ D BR IF ALL OK. 
MOV R1,NODEV “FLAG G DEVICE AS NON-EXISTENT 
BR 3$ ;DROP THIS UNIT 
2s: MOV #0,aDSR SSELECT REAL DSR 
TST a@DSR 31S UNIT STOPPED? 
BM! 4$ 7BR IF DISPLAY INITIALIZED OK. 
MOV UNITN,R1 
ASL R1 
INC ERTABL (R1) 
MOV #1 ,NODEV FLAG AS NOT IDLE 
3$: MOV #-1,DUFLG 
4$: TST LUTAV ; NOW, SEE IF LUT INSTALLED. 
BEQ 5$ ; BR IF NO 
MOV LSR,R1 
MOV LMR ,R2 
JSR PC .NXM ; TEST ALL LUT REGISTERS... 
BCC 5$ 3...BR IF IT'S THERE. 
MOV #0,LUTAV > CLEAR ‘LUT AVAILABLE"’ FLAG. 
; FINALLY, SET CPU PRIORITY AND WE'RE DONE. 
5$: SETPRI #PRIOO ENABLE INTERRUPTS. 
ENDINIT 
DEVCNT: 0 ;COUNT OF RUNNING DEVICES 


PUNT: wry JUNINGA®**** TESTING UNIT %D2%A exe%®/ 


SUBROUTINE - IF USER PATCHABLE FLAG ‘‘FORCER’’ IS SET (NON-ZERO), 
THEN FORCE RETURN TO THE NEXT ERROR CALL (HRDERR) IN SEQUENCE. 


F ORCET: M3 + aota ; FORCE ERROR TYPOUT? 


“Wiss Be Be Be 


$ ; NO. 
ADD #4,(SP) : YES. FORCE RTN TO THE HRDERR CALL. 


SEQ 0080 





| 
INITIALIZE SECTION 
3572 033010 000207 


1$: RTS PC 
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SEQ 0081 


— 


*< 


.. 
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AND DROP UNITS SECTIONS SEQ 0082 


3574 .SBTTL ADD AND DROP UNITS SECTIONS 
"THE ADD-UNIT SECTION CONTAINS THE CODING THAT te A DEVICE 


TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME 
OR (B) RE-INSERTED if IT HAD BEEN PREVIOUSLY DROPPED. 


! 
3577 
3578 
3579 
3580 
3581 033012 BGNAU 
3582 033012 010001 MOV RO,R1 ; GET UNIT TO BE ADDED (RO) 


3583 033014 006301 ASL R1 ; MAKE IT A WORD INDEX 

3584 033016 052761 100000 903302 BIS #100000 ,ERTABL (RI) ; SET THE "ACTIVE" BIT 
3585 033024 042761 040000 003302 BIC #40000 ,ERTABL (R1) ; CLEAR THE ‘DROPPED'' BIT 
3586 033032 PRINTF #1$,R0 


EXIT AU 
3588 033060 045 116 045 1$: -ASCIZ /%N%A_ UNIT %D%A ADDED/ 
3589 - EVEN 


90 
3591 033106 ENDAU ; UNUSED. 
3592 ++ 


3593 : THE DROP=UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
S296 ; TO BE REMOVED FROM THE TEST LIST. 

3596 F SUPVSR DOES THE 'DROPPING'’. THIS IS JUST TO TELL THE MAN. 
3597 ; ‘DROPPED’ UNITS ARE RE-SELECTED ON OPERATOR "*STA’' OR ''ADD"' 
3598 : COMMAND, OTHERWISE REMAIN INACTIVE. THE ‘DISPLAY’’ COMMAND 
3599 ; WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
3600 ; WHICH ARE STILL ACTIVE. 

at ; UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 

3603 033110 BGNDU 

3604 033110 012737 177777 003224 MOV 4-1 ,DUFLG 

3605 033116 010001 MOV RO, 

3606 é MOVB #-1,STIK(R1) REMOVE ‘‘JOY-STICK** FLAG. 
3607 033120 006301 af R1 

3608 033122 052761 140000 003302 #140000, apni ; SAY DROPPED 

3609 033130 000240 000240 000240 B40. 240,240 22222722? 

3610 033136 PRINTF Aha RO 

3611 033160 EXIT 

ait 033164 045 116 045 1$: erty OENKA UNIT %D%A DROPPED/ 

3614 033214 ENDDU 

3615 544 

21S ; AUTO=DROP CODE SECTION. 

3618 033216 BGNAUTO 

3619 033216 ENDAUTO 3; UNUSED. 


_ CLEAN-UP AND REPORT CODING SECTIONS 


7 
3628 033220 
3629 033220 
ty 033224 


3641 0335270 


6 033272 
3647 033272 


005737 
100414 


005077 


010246 


001012 
000431 


000414 
042702 


062704 


012602 


003224 


026756 
ReteeT 


003216 
147552 


003302 


040000 
170000 


160000 
160001 
170000 


000002 
003502 


3677 033530 


147576 
147566 


«SBTTL 


+ oe 


®: 
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CLEAN-UP AND REPORT CODING SECTIONS 


THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 


; EXECUTED AT THE END OF EACH PASS (OR SUB-PASS). 
: USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 


1$: 


es: 


BGNCLN 
TST 
BM] 


C 
ENDCLN 


DUFLG 
1$ 


PC ,RELEAS 


#GTJSSW,a@DXR 
PC ,WAITF 
#100000, aDYR 


PC WAI TF 
LUTAV 
2$ 


teary * FLAG ms “SET Beg 
. AND ro DPU FAULT 
DON'T TRY TO XCT DPU CODE. 


;CHECK FOR ‘HUNG’ 
;CLEAR PENDING Switch’ INTERRUPT 


:DO SOFT INIT. 


e 


; IF LUT, CLEAR STATUS. 


4g THE REPORT CODING SECTION CONTAINS THE 
; “PRINTS"' CALLS THAT GENERATE STATISTICAL REPORTS. 


13% 


e$: 


3$: 


30$: 


4$: 


BGNRPT 
PRINTS 


#DEVSUM 
R2,~(SP) 
#ERTABL ,R4 
R3 

(R4) ,R2 
4$ 


4$ 
#B1T14,R2 
2$ 
#*C7777,R2 


ADEVONL .R3,R2 


4$ 
R2,4160000 
3$ 

ADEVNXR ,R3 
4$ 
R2,4160001 
30$ 
ADEVNRD ,R3 
4$ 
#*C7777,R2 


#DEVDRO,R3,R2 


#2,R4 

R3 
R4,AERTABE 
1$ 
(SP)+,R& 


(SP)+,R3 
(SP)+,R2 


; GET START OF ERROR TABLE. 


; CLEAR UNIT NUMBER 
; GET ERROR TABLE ENTRY & TEST IT. 


ZERO IF UNIT NOT RUN 


WAS UNIT DROPPED? 

BR IF YES 

GET ERROR COUNT FIELD 
PRINT 


WAS UNIT NON-EXISTENT? 
BR IF NO 


WAS UNIT NOT READY AT STARTUP? 
BR IF NO. 


SEQ 0083 


V 


— 
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CLEAN-UP AND REPORT CODING SECTIONS SEQ 0084 
3678 033532 ENDRPT ; UNUSED. 
3679 
3681 0335 045 116 045 DEVSUM: .ASCIZ /%NZADEVICE STATUS SUMMARY: 2N/ 
3682 033571 045 101 040 DEVONL: .ASCIZ /%A UNIT %D3%A ONLINE, ERRORS = %DZN/ 
3683 03 045 101 040 DEVNXR: .ASCIZ /%A UNIT %D3%A DROPPED, NON-EXISTENT REGISTER%N/ 
3684 033723 045 101 040 DEVNRD: .ASCIZ /%A UNIT %D3%A  =DROPPED, NOT READY AT STARTUP&N/ 
3685 034004 045 101 040 DEVDRO: .ASCIZ /%A UNIT %D3%A DROPPED, ERRORS = %D%N/ 


paws + Ce ee eee Oe —— — - - -_ 


3688 L 

3689 .SBTTL HARDWARE TEST SECTION. 

3690 -SBTTL 

3691 -SBTTL TEST # DESCRIPTION 
3692 soe re eee > aeewewenesr 
3693 SBTTL 


TN=0 
3695 «NLIST MC,ME 


SEQ 0085 


| eee TEST 


SO 


%697 


3726 034224 
3727 

3728 034244 
3729 Perkae 


034262 
3730 034266 
3731 
3732 034272 


STATIC RESET 


004737 


027702 


027454 
100000 
146662 
146656 
023422 


146622 


146616 


027646 


034126 
030072 
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SRE EREREREREREEHEREEEEEEEHERERERERAAAEH ERE AAe ERA AHeHeHeHeenaneee 


-* 


Py 
Ps 
° 
-* 
. 
Ps 


BEGIN TEST 1 - 


REE RAEAEEAAREAERRERERAEERAARARTERAERHRARERORAEHEERREREERHARRAEER EH EEAe 


STATIC RESET 


3 (ITERATION COUNT = 1.) 


; EXECUTE A BUS RESET INSTRUCTION AND CHECK THE STATE OF THE DPU 

; THIS TEST IS ALMOST IDENTICAL TO THE ‘‘SOFT=INIT*’ ROUTINE (DPINIT:) 
* USED TO INIT THE DPU AT THE START OF MANY OF THE TESTS IN THIS 

THE DIFFERENCES ARE THAT INSTEAD OF A SOFTWARE DPU INIT, 


+ PROGRAM. 

; A BUS RESET, 1S USED. AND THAT 
; INSTEAD OF "SOF T= INIT’ 
a 


TRSET: JSR 


1$: 


23: 
3$: 


4$: 
5$: 


64$: 
65$: 


JMP 


JSR 
EXIT 


THE ERROR MESSAGE READS ‘BUS RESET'", 
PC,TSTGO ; TITLE. 


pCR KK KEKE KEKE KKK KKK KKK BEGIN SEGMENT. 
; BUS RE 


PC ,WAITF :WAIT FOR A COMPLETE 
R2 ;EXPECT DPC TO BE O. 
#B1T15,R3 SEMPECT DSR TO BE 100000. 
aDPC ; TEST THE DPC, ates 20. 
2$ * ERROR IF NOT 
_— + CHECK DSR. 
BRINIT,PCSERR ;REPORT ERROR IN DPC OR DSR 
«epee sCHECK THE INTERNAL REGISTERS 
R5 7DXR AND DYR SHOULD BE O. 
@DXR 
4$ 
aDYR 
5$ 
BRINIT,XYERR 
. p KKK ERK EKER K EEK KKK END SEGMENT. 
1 
+) ae : REPEAT ‘TIL LOOPER EXPIRES. 
65% 
1$ 
PC, TSTEND ; PRINT ERROR SUMMARY, IF REQ*D. 
TST ; EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


END. TEST 


ORR ROReReteeeeaekeeeeeeeeeteteeeeeneeeeeeeeteneteeeeeeeeeeeterereeeeee 


END TEST 1 


seeeeeererareeeseneseceseseereeserenrareseserseooasenenseeseeaeseeeeEeeS 


SEQ 0086 


ee 


vo 
see 


er 


a Ff 
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‘¥ 
TES? 1 STATIC RESE? 


SEQ 0087 


‘ore 
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RESET ONES 


3734 


' 
} 


3735 
3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 

4 


eee TEST 2 


004737 


012701 


012777 
017702 


020192 
001411 


012777 
012777 
012777 


2 
072701 


020102 
001411 


010302 
042702 
012701 


020102 
001411 


027702 


177763 
000013 
146450 


000003 
146436 


177774 
170015 


000004 
146362 


170000 
007777 


007777 
170000 


146442 


146402 
146374 
146366 


EEE EERE REE ER EEE EAR EREEH EERE EERE ER 


BEGIN TEST 2 - RESET ONES 


© Be ie Se ie He ie eT IRR ER KEE EERE EERE 


. 
-* 
. 
. 
. 


tte Be Se Be He Be He 


E 
$ 


64 


65 


(ITERATION COUNT = 1.) 


SET ALL APPLICABLE REGISTERS TO ONES, CHECK THAT ONES GOT SET, THEN 


EXECUTE A BUS 


RESET INSTRUCTION AND CHECK THE STATE OF THE DPU. 


THIS IS THE SAME AS THE ‘'STATIC RESET’’ TEST ABOVE, EXCEPT THAT 


THE REGISTERS 


ARE SET TO ONES FIRST. 


R1=EXPECTED, R2=RECEIVED, RO,R3=WORK REGS. 


SET1: JSR 

$ BGNSEG 
MOV 
WTDSRA 
MOV 
BIS 
MOV 
RDDSRA 
MOV 
MOV 
IF ERROR 
CMP 
BEQ 


HRDERR 
$: 


MOV 
IFERROR 
CMP 
BEQ 
HRDERR 
$: 
MOV 
BIC 
MOV 
IF ERROR 
CMP 
BEQ 
HRDERR 


66$: 


PC,TSTGO s Y e 
p KKK KKK KEKE KKK KKK KKK KK KKK KK BEGIN SEGMENT. 


#177763,R1 


od 


SR 

#SETCSR.RO : WRITE R1 INTO CSR. 
RO. aDSR 

CSR,R2 

WSELCSR.@DSR —s;:~ READ CSR INTO R2. 
DSR,R 


a e 2 
ICSRE,EXPREC,,CKLOOP 
R 2 : OK? 


Ps) 
= 


64$ 2 YES, 
ICSRE,EXPREC,CKLOOP ; NO. 


#177760,MRR 
#1777608*C17! SETMRR,a@DSR 
#170000 ,MPM 
#170000&*C17! SETMPM,aDSR 


MRR ,R2 
A#SELMRR ,@DSR ; READ MRR INTO Re . 
aDSR,R2 


R2,R 

#170000,R2 : MRR OK? 
#7777. RI 

IMRRE .EXPREC, , CKLOOP 
R1,R2 ; OK? 


65$ * YES. 

IMRRE , EXPREC, CKLOOP > NO. 
> MPM OK? 
#170000,R1 

IMPME ,EXPREC, , CKLOOP 

R1.R2 > OK? 


66$ ; YES. 
IMPME ,EXPREC,CKLOOP ; NO. 


SEQ 0088 


VS 





gees 
i 
i 


| 





TEST 

3762 034552 

3763 08c860 

3764 034566 
66 


034640 
3769 034640 
a 034642 


3771 034646 
3772 Oerees 


3773 
3774 034700 
3775 034702 


3 66 
3789 034772 
3790 034774 


3791 
3792 035014 
3793 
3794 035016 


035024 
035026 


035032 
3795 035036 


3796 
3797 035042 


RESET 


012777 
012777 
012777 


2 
012701 


020102 
001411 


010302 
042702 
012701 


020102 
001411 


177776 
170017 


000006 
146234 


170000 
007777 


007777 
170000 


027454 
100000 
146112 
146106 
023422 


146052 
146046 


027646 


034344 
030072 


146254 
146246 
146240 


67$: 


68$: 
10$: 


11$: 


13$: 
14$: 


69$: 
70$: 
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WIDSRA #177760 
MO 


V #177 7606C17!SETXRR, apsR 
WIDSRA XPM 

V oy pope nC 17! SETXPM, aDSR 
RDDSRA XRR,R2 

V #SELXRR,@DSR —s;::- READ XRR INTO R2 . 
MOV aDSR,R2 
MOV R2,R 
BIC #170000,R2 ; XRR OK? 
MOV 47 -R1 
IFERROR IXRRE.EXPREC,,CKLOOP 
CMP R1,R2 : OK? 


67$ s YES. 
HRDERR IXRRE,EXPREC,CKLOOP ; NO. 


MOV R3,R2 : XPM OK? 
BIC #7777, R2 

MOV #170000,R 

IFERROR IXPME, EXPREC. . CKLOOP 

CMP R1 OK? 


@ e 


BEQ 68$ YES. 
HRDERR TXPME , EXPREC. CKLOOP : NO. 


BRESET ; BUS RESET. 

JSR PC ,WAITF :WAIT FOR A COMPLETE 

CLR R2 EXPECT DPC TO BE O. 

MOV #B1T15,R3 TEXPECT DSR TO BE 100000. 
TST aDPC TEST THE DPC, S/B =0. 
BNE 11$ SERROR IF NOT 0. 

CMP + ee CHECK DSR. 


BEQ 
DFERR BRINIT,PCSERR ;REPORT ERROR_IN DPC OR DSR. 
JSR SC eeem CHECK THE INTERNAL REGISTERS 


CLR 
CLR R5 :DXR AND DYR SHOULD BE 0. 
TST aDXR 
E 13$ 
TST abYR 
BEQ 14$ 
DFERR BRINIT,XYERR 
ENDSEG KKK KKK KEKE KKK KKK KKK KKK KKK << END SEGMENT. 
COMEND 1$ 
JSR PC,LOOP ; REPEAT ‘TIL LOOPER EXPIRES. 
BCS 69$ 
BR 70$ 
JMP 1$ 
JSR PC, TSTEND : PRINT ERROR SUMMARY, IF REQ'D. 
EXIT TST ; EXIT THIS TEST >>>>5>>>>>>>>>>>>>>>>>>>>> 
END. TEST 


PRA ERE EEE EAA AAA AAA TAAL AA AAA AAA AAA AA TAA SS 


SEQ 0089 





— 


VSV11/VS11 == GRAPHIC SYS 
we~ TEST 2 RESET ONE 


§ 


mM 7 
DIAG MACRO M1113 29-JAN-81 17:22 PAGE 55-2 


5* 

* END TEST 2 

7* 

RRA A AERA TRAE AAR EE EAA AAA AAA AAA RARER RATATAT AAA A SAAR A RAHA EEE SEES 


SEQ 6090 


VS 


et 






















eee TEST 
3799 


3807 035114 
top 035120 


09 
3810 035122 
3811 035126 
035126 
0 
3812 035140 


0 
3813 035152 


3814 
3815 035200 


035200 
3816 035206 
035206 
3817 035214 
035214 
035222 
3818 035226 
3819 035230 
3820 035234 
3821 035240 
035240 


- 


SOFT INIT ONES 


004737 


012701 
012700 
050100 
010077 


012777 
017702 


020102 
001411 


012777 
012777 
012777 


2 
012701 


020102 
001411 


010302 
042702 
012701 


020102 
001411 


027702 


177763 
000013 
145674 


000003 
145662 


177774 
170015 


000004 
145606 


170000 
007777 


007777 
170000 


145666 


145626 
145620 
145612 


7 
ha 4 == GRAPHIC SYS. DIAG MACRO M1113 29-JAN=81 17:22 PAGE 56 


ai a ae“ RAR 8 aa eh ip agg PR ike pre ew Np 


BEGIN TEST 3 - SOFT INIT ONES 


© ee He He RI IK I IC I TT FO KITT TT TOT TOT TOT TOI TOF SOTTO TOOTS TOI TOT IATA TITAS ASAT IAT ION 


; (ITERATION COUNT = 10.) 


NIT1: 


BUS Be Be Oe Be Be Be 


3 
$: 


64$: 


65$: 


66$: 


JSR PC,TSTGO ; TITLE. 

BGNSEG J KKKK KKK KKK KKK KKK KKK KKK KKK BEGIN SEGMENT. 
Vv #177763,R1 

WIDSRA R1,CSR 

MOV ASETCSR,RO ; WRITE R1 INTO CSR . 

BIS R1,R0 


MOV RO. aDSR 
RDDSRA CSR,R2 
MOV WSELCSR.ADSR : READ CSR INTO R2 . 


MOV aDSR,R2 
IFERROR ICSRE,EXPREC,,CKLOOP 
MP R1,R2 3; OK? 


64$ s VES. 
ICSRE ,EXPREC,CKLOOP ; NO. 


#177760 Mi 

MOV #1777608"C 17! SETMRR, aDSR 
WTDSRA #170000,MPM 

MOV #1700008*C17! SETMPM, @DSR 


RDDSRA MRR,R2 

MOV #SELMRR,@DSR —«;:~- READ MRR INTO R2 . 
MOV BSR R2 

MOV 

BIC #170000, R2 : MRR OK? 
MOV #7777,R1 

IF ERROR IMRRE . -EXPREC, .CKLOOP, 

CMP Re OK? 

BEQ B5$ YES. 

HRDERR IMRRE, EXPREC, CKLOOP > NO. 
MOV : MPM OK? 
BIC Roane R2 


MOV #170000,R 
IFERROR IMPME, EABREC. .CKLOOP, 
CMP R1,R2 Ok? 


BEQ 66$ YES. 
HRDERR IMPME , EXPREC , CKLOOP ; NO. 


SEQ 0091 


VS' 


ef 


Sent eee 


VSV11/VS11 == a SYS. DIAG MACRO M1113 29=JAN-81 
3 INIT ONES 


ese TEST SOF T 
3827 035326 WTDSRA 
035326 012777 177776 145500 Mov 
3828 035334 WIDSRA 
035334 012777 170017 145472 V 
3829 035342 RDDSRA 
035342 012777 000006 145464 MoV 
035350 017702 145460 MOV 
035354 010203 MoV 
3831 035356 042702 170000 BIC 
32 035362 012701 007777 MOV 
3833 035 IF ERROR 
035366 020102 CMP 
035370 001411 BEQ 
035372 HRDERR 
035414 678: 
3834 035414 010302 mov 
3835 035416 042702 007777 BIC 
3836 035422 012701 170000 MoV 
3837 035426 iF ERROR 
635426 020102 CMP 
035430 001410 BEQ 
035432 HRDERR 
035452 68S: 
3838 
3839 
3840 035452 012777 100000 145360 mov 
2841 035460 004737 027454 JSR 
3842 035464 005002 CLR 
3843 035466 012703 100000 MoV 
3844 035472 005777 145334 TST 
3845 035476 001003 BNE 
3846 035500 027703 145330 CMP 
3847 035504 00141 BEQ 
0355 11$: DFERR 
3849 035526 004737 023422 128: JSR 
3850 035532 005004 CLR 
3851 035534 00500 CLR 
035536 005777 145274 TST 
3853 035542 001003 BNE 
3854 035544 005777 145270 TST 
3855 035550 001410 BEO 
3856 035552 13$:  DFERR 
3858 035572 14$:  ENDSEG 
3859 
3860 035574 COMEND 
035574 004737 027646 JSR 
035600 103401 BCS 
035602 000402 BR 
035604 000137 035120 698:  JMP 
035610 004737 030072 70$: JSR 
3861 035614 EXIT 
3862 
3863 035620 END. TES 


pe a 


8B 8 
17:22 PAGE 56-1 


#1777 


F777 eOb= C17! SETXRR, aDsR 
#170000 , XPM 
#1700008-C17 ! SETXPM, aDSR 
XRR ,R2 
MSELXRR,@DSR ; READ XRR INTO R2 . 
SR,R2 
R2,R 
‘#170000 ,R2 : XRR OK? 
#7777 ,R1 
IXRRE, wanting 
R1,R2 
Pee ES. 
IXRRE ,EXPREC, CKLOOP ; NO. 
R2 ; MPM OK? 
#7777 ,R2 
170000 ,R1 
a" EXPREC 
3; OK? 
eas : YES. 
IXPME ,EXPREC, ; NO. 
#100000 ,aDYR :DO SOFT INIT. 
PC ,WAITF ;WAIT FOR STOP 
R2 “EXPECT DPC TO BE O. 
#B1T15,R3 : EXPECT DSR TO BE 100000. 
aDPC ;TEST THE DPC, S/B =0. 
11$ TERROR IF NOT 0 
+ pone + CHECK DSR. 
NSINIT,PCSERR  ;REPORT ERROR IN DPC OR DSR. 
_—— ;CHECK THE INTERNAL REGISTERS 
R5 :DXR AND DYR SHOULD BE 0. 
aDXR 
13$ 
aDYR 
14$ 
NSINIT,XYERR 
y KKKK KKK KKK EK KK KKK KKK KKK KKK END SEGMENT. 
1$ 
oo ; REPEAT ‘TIL LOOPER EXPiRES. 
70$ 
1$ 
PC, TSTEND : PRINT ERROR SUMMARY, IF REQ'D. 
TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


T 


| 
SEQ 0092 | 
| 


| VSV11/VS11 == GRAPHIC SY 
3 SOFT INIT ONE 


| eee TEST 


¢ 8 
se MACRO M1113 29-JAN-81 17:22 PAGE 56-2 


[RRA A AAA AERARAAREAA EATER AR AREA RARER AEE TEAR RARAARAEA EA REE SAREE RESTS 
7” 

- END TEST 3 

77 

{RAR AEA AAA A TAA A TAAL ELTA A AAA AERA RAR ERERHORAAHAERERAHRHLERAEA EERE ESS 


SEQ 0093 





eee Ge / Seer - 


dD. 8 
APHIC SYS. DIAG MACRO M1113 29-JAN-81 17:22 PAGE 57 
REGISTERS UNIQUE ADDRESS 


eee TEST 
3865 


| 
| 


3866 

3867 

3808 

3869 

3870 

3871 

3872 035704 

3873 035710 

3874 035712 
5712 

3875 035716 


pid los Ad, =-- GR 


017702 
020102 
001410 
017702 
020102 
001410 
017702 


020102 
001410 


004737 
012703 


012700 
050300 
010077 
012701 


012777 
017702 


020102 
001410 


027702 


025402 


000000 
145074 


145050 


145022 


025402 
177760 


000010 


144744 
000001 


000001 
144726 


144732 


® HERRERA EERE ERR ERE EKER ERE REE RHEE ERE EE 


REGISTERS UNIQUE ADDRESS 


2 Se IT IT TR TERRE REE EERE EERE REE REE EH 


° 
oe 


** 


. 
° 
s@ 
o 
. 


PO He Be Be Be we 


U 
$ 


64 


65 


66 


ADR: JSR 
BGN 


BEGIN TEST 4 - 


ALL REGISTERS ARE SET TO THEIR NORMAL STATIC STATE VIA A SOFT INIT. 
EACH APPLICABLE REGISTER, IN TURN, IS SET TO ITS CAPABILITY FOR ONES, 
AND THEN ALL OF THE OTHER REGISTERS ARE CHECKED THAT THEY REMAINED 


; (ITERATION COUNT = 10.) 


AT THEIR STATIC STATE. 


BEQ 
5 HRDERR 


MOV 
IFERROR 
CMP 


BEQ 
HRDERR 
$: 
C 
BEQ 
HRDERR 
ENDSEG 
BGNSEG 


$: 


MOV 
IFERROR 
CMP 


BEQ 
HRDERR 


V 
IF ERROR 
CMP 


MOV 
IFERROR 
MP 


PC,TSTGO 


PC,DPINIT 
#177760,R3 
R3,aDSR 

#0,R1 

@DPC,R2 
DSDPE , DUADRE 
R1,R2 

64$ 
DSDPE , DUADRE, 
aDXR,R2 
DSDXE , DUADRE 
R1,R2 

65$ 

DSDXE ,DUADRE , 
@DYR,R2 
DSDYE , DUADRE 
R1,R2 


66$ 
DSDYE ,DUADRE, 


; PRINT TITLE. 


: KKK KEKE KKK KEKE KKK KKK KKK KKK BEGIN SEGMENT. 


; GO DO SOFT INIT, CHECK THE STATE. 
; WRITE DSR. 
; READ DPC INTO Re. 
3 Ox? 
3 YES. 
NO. 


; READ DXR INTO Re. 


KKK KKK KK ERK KK KKK KK KKK KKK << END SEGMENT. 
p KKK KKK KKK KKK KKK KK KKK KKK << BEGIN SEGMENT. 


PC,DPINIT 
#177760,R3 


R3,DSR 
ASETDSR,RO 
R3,RO 
hn 
PCS,R2 
MSELPCS,@DSR 
@DSR,R2 
DSPCE , DUADRE 
R1,R2 


67$ 
DSPCE ,DUADRE , 


; GO DO SOFT INIT, CHECK THE STATE. 


; WRITE R3 INTO DSR . 


; READ PCS INTO Re . 


SEQ 0094 


E 8 
| ySv11/VS11 == GRAPHIC SYS. DIAG MACRO M1113 29-JAN-81 17:22 PAGE 57-1 
| eee TEST G REGISTERS UNIQUE ADDRESS SEQ 0095 


| 036132 67$: 
3892 036132 012701 100000 
3893 036136 


012777 000002 144670 
036144 017702 144664 MOV @DSR ,R2 
3894 036150 ie meat 


MOV #100000,R1 
RDDSRA FLG,R2 
MOV #MSELFLG,@DSR ; READ FLG INTO R2 . 


| 036150 020102 : OK? 
036152 001410 BEQ 68 : YES. 
036154 HRDERR DSFLE,DUADRE, ; NO. 
036174 68$: 
3895 536174 012701 000003 MOV #3,R1 
3896 036200 RDDSRA CSR,R2 
036200 012777 000003 144626 MOV WSELCSR,@DSR ; READ CSR INTO R2. 
036206 017702 144622 MOV aDSR,R2 
3897 036212 IFERROR DSCSE ,DUADRE 
036212 020102 CMP R1,R2 : OK? 
036214 001410 BEQ 69$ YES. 
036216 HRDERR DSCSE,DUADRE, ; NO. 
036236 698: 
3898 C36236 012701 000000 MOV #0,R1 
3899 036242 RDDSRA MRR,R2 
036242 012777 000004 144564 MOV #SELMRR,@DSR ; READ MRR INTO R2 . 
036250 017702 144560 MOV aDSR,R2 
3900 036254 042702 170000 BIC #170000,R2 : MASK OUT MPM. 
3901 036260 IFERROR DSMRE ,DUADRE 
036260 020102 CMP R1,R2 > OK? 
036262 001410 BEQ 70$ : YES. 
036264 HRDERR DSMRE,DUADRE, z NO. 
036304 708: 
3902 036304 RDDSRA MPM,R2 
036304 012777 000004 144522 MOV #SELMPM,aDSR ; READ MPM INTO R2 . 
036312 017702 144516 MOV aDSR,R2 
3903 036316 042702 007777 BIC #7777 ,R2 : MASK OUT MRR. 
3904 036322 IFERROR DSMPE ,DUADRE 
036322 020102 CMP R1,R2 : OK? 
036324 001410 BEQ 71$ : YES. 
036326 HRDERR DSMPE,DUADRE, ; NO. 
036346 71$: 
3905 036346 RDDSRA XRR,R2 
036346 012777 000006 144460 MOV ASELXRR,@DSR ; READ XRR INTO a? . 
036354 017702 144454 MOV aDSR,R2 
3906 036360 042702 170000 BIC #170000,R2 : MASK OUT XPM. 
3907 036364 IFERROR DSXRE ,DUADRE 
036364 020102 CMP R1,R2 : OK? 
036366 001410 BEQ 72$ : YES. 
036370 HRDERR DSXRE,DUADRE, ; NO. 
036410 72$: 
3908 036410 RDDSRA XPM,R2 
036410 012777 000006 144416 MOV #SELXPM,@DSR —«;::- READ XPM INTO R2 . 
036416 017702 144412 MOV aDSR,R2 
3909 036422 042702 007777 BIC #7777 ,R2 : MASK OUT XRR. 
3910 036426 IFERROR DSXPE ,DUADRE 
036426 020102 CMP R1,R2 > OK? 
036430 001410 BEQ 73$ YES. 
036432 HRDERR DSXPE,DUADRE, ; NO. 
36452 73$: 


0 
3911 036452 ENDSEG p KKK KK EEK KKK KKK KEK KKK KKK END SEGMENT. 





ax 


| VSV11/VS11 == GRAPHI 
wee TEST 4 


| 
inet 


3912 036454 
3913 026456 
036456 
3914 036462 
3915 036466 
036466 


0 
3932 bythe 


C 
REGIST 


004737 
012703 


012701 


012777 
017702 


020102 
001410 
012701 


012777 
017702 


020102 
001410 
012701 


012777 
017702 


020102 
001410 


012701 


012777 
017702 
042702 


020102 
001410 


012777 
017702 
042702 


SYS. D 
ERS UN 


025402 
177760 


000013 
144334 
100000 


000000 
144316 


000001 


0C0001 
144254 


100000 


000002 
144212 


000000 


000004 
144150 
170000 


000004 
144106 
007777 


000006 
144044 


144222 


74$: 


144260 


75$: 


144216 


76$: 


144154 


77$: 


144112 


78$: 


144050 


BGNSEG 
INI TDP 
JSR 


MOV 
WITDSRA 
MOV 


BEQ 
HRDERR 
MOV 
RDDSRA 
MOV 
MOV 
IFERROR 
CMP 
BEQ 
HRDERR 
MOV 
RDDSRA 
MOV 
MOV 
IF ERROR 
CMP 
BEQ 
HRDERR 


MOV 
RDDSRA 
MOV 
MOV 
BIC 
IF ERROR 
CMP 
BEQ 
HRDERR 


RDDSRA 


IF ERROR 
CMP 


BEQ 
HRDERR 


RDDSRA 
MOV 
MOV 


F_ 8 
IAG MACRO M1113 29=JAN-81 17:22 PAGE 57=2 
IQUE ADDRESS 


b KKK KKK KEKE KEKE KKK KKK BEGIN SEGMENT. 
; GO DO SOFT INIT, 


PC DPINIT 
#177760,R3 


.CSR 
#SETCSR,RO 
R3,RO 


RO. a@DSR 
#100000,R1 

R,R2 
ASELDSR,@DSR 
aDSR,R2 
CSDSE , DUADRE 
R1,R2 


z 
in 


i) 
nn 


74$ 
CSDSE ,DUADRE, 


#1,R1 

PCS,R2 
HSELPCS.@DSR 
aDSR,R2 
CSPCE ,DUADRE 
R1,R2 


e 


75$ 
CSPCE ,DUADRE , 


#100000,R1 
FLG,R2 
ASELFLG,@DSR 


@aDSR,R2 
CSFLE ,DUADRE 
R1,Re 


4 


76$ 
CSFLE ,DUADRE, 


#0,R1 


MRR ,R2 
A#SELMRR ,@DSR 
@DSR,R2 
#170000 ,R2 
CSMRE , DUADRE 
R1,R2 


77$ 
CSMRE ,DUADRE , 


MPM ,R2 
#SELMPM, aDSR 
aDSR,R2 
#7777 ,R2 
CSMPE . DUADRE 


td 


78$ 
CSMPE ,DUADRE , 


KRR,R2 
AMSELXRR,@DSR 
QDSR,R2 


WRITE R3 INTO CSR . 


READ 


DSR INTO Re . 


PCS INTO Re . 


FLG INTO R2 . 


MRR INTO Re . 


OUT MPM. 


MPM INTO R2 . 


OUT MRR. 


XRR INTO Re . 


CHECK THE STATE. 


SEQ 0096 


3933 036770 
3934 036774 
036774 
036776 
037000 
037029 
3935 037020 
037020 
037026 
3936 037032 
3937 a 


03 
3938 037062 
3939 037064 
3940 037066 


037066 
3941 037072 
3942 037076 
037076 
0 
3943 037110 
3944 037114 
3945 037126 
0 
0 
3946 037152 
3947 037156 
0 
3948 037170 
0 
3949 037214 


3950 037220 
03 


03 
3951 Oa7S85 


0 
3952 037256 
3953 037262 
037262 
037270 
3954 Bersre 
037274 


REGISTERS UNIQUE ADDRESS 
042702 170000 


020102 
001410 


012777 000006 
017702 144002 
042702 007777 


020102 
001410 


144006 


004737 025402 
012703 007777 


012700 000014 
050300 

010077 143724 
012701 100000 


012777 000000 
017702 143706 


020102 
001410 


143712 


012701 000001 


012777 000001 
017702 143644 


020102 
001410 


143650 


012701 100000 


012777 000002 
017702 143602 


020102 
001410 


143606 


012701 


012777 000003 
017702 143540 


000003 
143544 


020102 


79$: 


80$: 


81$: 


82$: 


83$: 


BIC 
IFERROR 
CMP 
BEG 
HRDERR 
RDDSRA 
MOV 
MOV 
BIC 
IFERROR 
CMP 
BEQ 
HRDERR 
ENDSEG 
BGNSEG 
INI TDP 
JSR 
MOV 
WITDSRA 
MOV 
BIS 
MOV 
MOV 
RDDSRA 
MOV 
MOV 
IFERROR 
CMP 
BEQ 
HRDERR 
MOV 
RDDSRA 
MOV 
MOV 
IFERROR 
CMP 
BEQ 
HRDERR 


G 8 
pee 4 a] == GRAPHIC SYS. DIAG MACRO M1113 29=JAN-81 17:22 PAGE 57-3 


eee TEST 


#170000 ,R2 
CSXRE , DUADRE 
R1,R2 


79 
CSXRE ,DUADRE , 


XPM ,R2 
#ASELXPM, aDSR 
aDSR,R2 
#7777 ,R2 
CSXPE , DUADRE 
R1,R2 


80 
CSXPE ,DUADRE , 


; MASK OUT XPM. 


OK? 


: YES. 
NO. 


; READ XPM INTO Re . 
; MASK OUT XRR, 


OK? 


; VES. 


bp KKK KKK EERE EERE KKK END SEGMENT. 
b RKK KR EE EEK EEK BEGIN SEGMENT. 


PC DPINIT 
#7777,R 


R3, mi 
#SETMRR RO 
R3,RO 
RO,@DSR 
#100000,R1 

R,R2 
ASELDSR,a@DSR 
aDSR,R2 
MRDSE , DUADRE 
R1,R2 


Co 
wn 


81$ 
MRDSE ,DUADRE , 


#1,R1 
PCS,R2 
AMSELPCS,@DSR 


aDsR, 
MRPCE , DUADRE 
R1,R2 


a 


82$ 
MRPCE ,DUADRE , 


#100000,R1 
FLG,R 
ASELFLG,@DSR 
@aDSR,R2 

MRF LE , DUADRE 
R1,R2 


e 


83$ 
MRFLE ,DUADRE, 


#3,R1 

CSR,R2 

ASELCSR,@DSR 
Re 


aDSR, 
MRCSE , DUADRE 
R1,R2 


; GO DO SOFT INIT, 


CHECK THE STATE. 


WRITE R3 INTO MRR . 


READ DSR INTO Re . 
OK? 
YES. 
NO. 


READ PCS INTO R2 . 


READ CSR INTO Re . 


OK? 


SEQ 0097 


8 
| VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113 29-JAN-81 17:22 PAGE 57-4 


eee TEST 4 
037276 
7300 


3967 037476 
037476 
3968 037502 
3969 037506 
037506 
037512 
037514 
3970 037520 
3971 037524 
037524 


0 
3972 Osr3ee 


UIWG 
2 
— 
ooo 
ae 
nw 
RSS 


0 
3973 037562 


3974 037566 

037566 

037574 4 
3975 037600 

037600 

037602 

037604 


REGISTERS UNIQUE ADDRESS 


001410 


012701 
012777 


020102 
001410 


012777 
017702 
042702 


02010 
41 


2 
001410 


012777 
017702 
042702 


0102 
1 


02 
001410 


004737 
012703 


012701 


012777 
017702 


020102 
001410 
012701 


012777 
017702 


020102 
001410 


025402 
170000 


000015 


143314 
100000 


000000 
143276 


000001 


000001 
14323 


84%: 


143502 MOV 


TERROR 


BO 
HRDERR 


RDDSRA 


85$: 
143440 


86$: 
143376 MOV 


Q 
HRDERR 
ENDSEG 


87$: 


143302 MOV 
MOV 
IFERROR 
MP 
Q 
HRDERR 
88$: 
MOV 
RDDSRA 
143240 MOV 
MOV 
IFERROR 
CMP 


BEQ 
HRDERR 


84$ 
MRCSE ,DUADRE, 


#0,R1 
MPM ,R2 
#SELMPM, aDSR 
aDSR,R2 
Petre R2 
MRP ; DUADRE 


85 
MRMPE ,DUADRE , 


XRR.,R2 
#SELXRR,@DSR 
aDSR,R2 
#170000,R2 
MRXRE , DUADRE 
R1,R2 


86 
MRXRE ,DUADRE , 


XPM ,R2 
#SELXPM,@DSR 


aDSR,R 
#7777 ,R2 
MRXPE , DUADRE 
R1,R2 


87$ 
MRXPE ,DUADRE , 


READ MPM INTO Re . 
MASK OUT MRR. 

OK? 

YES. 

NO. 

READ XRR INTO R2 . 
MASK OUT XPM. 


OK? 
vES. 
NO. 


: READ XPM INTO R2 . 


MASK OUT XRR. 


; OK? 
g YES. 
NO. 


p KKK KKK KEKE KEKE KKK KKK END SEGMENT. 


Bb KKK KEK KE ERE EEK EEK BEGIN SEGMENT. 


; GO DO SOFT INIT, CHECK THE STATE. 


PC ,DPINIT 
#170000,R3 


R3,MPM 
#SETMPM,RO 
RO. aDSR 
#100000,R1 
DSR,R2 
#SELDSR,@DSR 
aDSR,R2 
MPDSE , DUADRE 
R1,R2 


88$ 
MPDSE ,DUADRE , 


#1,R1 

PCS,R2 
#SELPCS,@DSR 
aDSR,R2 
MPPCE ,DUADRE 
R1,R2 


89 
MPPCE ,DUADRE, 


WRITE R3 INTO MPM . 


READ DSR INTO Re . 


OK? 
YES. 
NO. 


READ PCS INTO Re . 


OK? 
YES. 


SEQ 0098 


A ED © SSS SS — 
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eee TEST 4 REGISTERS UNIQUE ADDRESS SEQ 0099 
037624 aos: 
2976 037624 012701 100000 MOV #100000,R1 
2977 0376 RDDSRA FLG,R2 
037630 012777 909002 143176 MOV @SELFLG.@DSR =; READ FLG INTO R2. 
037636 017702 «14317 MOV apsRr, 
3978 037642 IFERROR MPFLE ,DUADRE 
037642 020102 CMP R1.R2 : OK? 
037644 001410 BEO 90$ : YES. 
037646 HRDERR MPFLE,DUADRE, =; NO. 
037666 908: 
2979 037666 012701 000003 MOV #3,R1 
3980 037672 RDDSRA (SR,R2 
037672 012777 000003 143134 MOV MSELCSR,@DSR =; READ CSR INTO R2. 
037700 017702 143130 MOV apsR, 
3981 037704 IFERROR MPCSE , DUADRE 
037706 020102 CMP R1,R2 3 OK? 
037706 001410 BEQ 91 : VES. 
037710 HRDERR MPCSE,DUADRE,  ; NO. 
637730 91$: 
3982 C37730 012701 000000 MOV #0,R1 
3983 037734 : RDDSRA MRR,R2 
037734 012777 000006 143072 MOV #SELMRR,aDSR : READ MRR INTO R2 . 
037742 017702 143066 MOV aDSR,R 
3984 037746 042702 170000 BIC #170000 ,.R2 ; MASK OUT MPM. 
3985 037752 IFERROR MPMRE , DUADRE 
037752 020102 CMP R1.R2 : OK? 
037754 001410 REQ 92$ : VES. 
037756 HRDERR MPMRE,DUADRE, =; NO. 
037776 92%: 
3986 037776 RDDSRA XRR,R2 
037776 012777 000006 143030 MOV #SELXRR,@DSR ; READ XRR INTO R2 . 
040006 017702 143026 MOV @DSR,R2 
3987 040010 042702 170000 BIC #170000,R2 : MASK OUT XPM, 
3988 040014 IFERROR MPXRE , DUADRE 
040014 020102 cmp R1.R2 : OK? 
040016 001410 BEO 93$ : YES. 
040020 HRDERR MPXRE,DUADRE, =; NO. 
0400460 933: 
3989 040060 RDDSRA XPM,R2 
040060 012777 000006 142766 MOV #@SELXPM,aDSR : READ XPM INTO R2 . 
040066 017702 142762 MOV @DSR,R2 
3990 040052 042702 007777 BIC #7777 ,R2 : MASK OUT ¥RR. 
3991 040056 1FERROR MPXPE , DUADRE 
020102 CMP R1.R2 : OK? 
001410 BEO 948 : VES. 
HRDERR MPXPE,DUADRE,  ; NO. 
040102 94$: 
3992 040102 ENDSEG pK K EEK KEKE CCC END SEGMENT. 
3993 040106 BGNSEG b KKK KKK KR EEK KERR ERK KEKE BEGIN SEGMENT, 
3994 040106 INI TDP 
040106 006737 025402 JSR PC .DPINIT : GO DO SOFT INIT, CMECK THE STATE. 
3995 040112 012703 007777 MOV 47777, RS 
3996 040116 WIDSRA R3,xRR 
040116 012700 000016 MOV #5é TXRR RO ; WRITE R3 INTO MRR. 
040122 050300 BIS R3,R0 
040126 010077 142706 MOV RO, aPSR 
3997 040730 012701 100000 MCV #160000.87 


8 
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eee TEST 


0176 


4009 040340 
4010 040344 
040344 


040352 
4011 040356 
4012 040362 
040362 


14 

4014 040420 
4015 040424 
040424 
040426 
040430 
040450 

4016 040450 
040450 
040456 


rc 


REGISTERS UNIQUE AD 


012701 


012777 
017702 


020102 
001410 
012701 


012777 
17702 


020102 
001410 
012701 
012777 


020102 
001410 


012777 


00000 142672 
142666 


000001 


000007 142630 
142626 


100000 


OCO002 142566 
142562 


000003 


000003 142524 
142520 


142662 
142656 
170000 


000004 142420 
142414 
007777 


142356 


95$: 


963: 


97%: 


98$: 


99S: 


100$: 


RDDSRA DSR,R2 
MOV ase. DsR, -@DSR 


MOV 
IF ERROR eRD SE DUADRE 
R1.R2 


MOV #1,R1 

RDDSRA PC5,R2 

MOV @SELPCS,aDSR 
we aDSR,R2 
IFERROR KRPCE , DUADRE 
CMP R1 iF 


BEG 96 
HRDERR XRPCE ,DUADRE, 


MOV #100000 ,R1 
RDDSRA FLG,R2 
MOV #SELFLG,@DSR 


™0 @DSR,R 
IFERROR XKRFLE ,DUADRE 
mp R1,R2 


BEQ 97$ 


HRDERR XRFLE,DUADRE, 


MOV #3,R1 
RDDSRA (CSR,R2 
MOV #SELCSR,@0SR 


MOV @DSR ,R2 
IFERROR XRCSE ,DUADRE 
MP R1,R2 


MOV #0,R1 
RDDSRA MRR,R2 
#SELMRR ,aDSR 


aDSR,R2 
Bl: #170000, R2 
IFE.ROR XRMRE , DUADRE 
MP R1,R2 


HRDERR XRMRE ,DUADRE, 


MPM ,R2 
#SELMPM, aDSR 
MOV aDSR,R 

BIC #7777 ,R2 
IFERROR XRMPE ,DUADRE 
MP R1,R2 


RDDSRA XPM,R2 
MOV #SELXPM,@DSR 
MOV @aDSR,R2 


BE 95 
HRDERR KRDSE ,DUADRE, 


98 
HRDERR XRCSE ,DUADRE, 


100$ 
HRDERR XRMPE ,DUADRE, 


; READ 


VES. 
NO 


READ 


DSR INTO R2 


PCS INTO R2 


FLG INTO R2 


CSR INTO R2 


MRR INTO R2 
OuT MPM. 


MPM INTO R2 . 


OUT MPM. 


XPM INTO R2 , 


: 
« 


ee — 


| 2 
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| eee TEST 4 REGISTERS UNIQUE ADDRESS SEQ 0101 ea 
4017 040462 042702 007777 BIC #7777 ,R2 : MASK OUT XRR. 
4018 040466 IFERROR XRXPE ,DUADRE 
040466 020102 CMP R1,R2 3 CK? 
040470 001410 BEQ 101$ : YES. 
| 040472 HRDERR XRXPE,DUADRE,  ; NO. 
040512 101$: 
4019 040512 ENDSEG p KKK KEKE KKK KKK KKK KEK KKK << END SEGMENT. 
4020 040514 BGNSEG J KKKKKKK KKK KKK KKK KKK KKK KKK BEGIN SEGMENT. 
4021 040516 INI TDP 
040516 004737 025402 JSR PC ,DPINIT : GO DO SOFT INIT, CHECK THE STATE. | 
4022 040522 012703 170000 MOV #170000,R3 
4023 040526 WIDSRA R3,XPM 
040526 012700 000017 MOV #SETXPM,RO : WRITE R3 INTO XPM . 
040532 050300 BIS R3,RO 
040534 010077 142274 MOV RO, aDSR 
4024 040540 012701 100000 MOV #106000,R1 
4025 040544 RDDSRA DSR,R2 
040544 012777 000000 142262 MOV ASELDSR,@DSR ; READ DSR INTO R2 . 
040552 017702 142256 MOV aDSR,R2 
4026 040556 IFERROR XPDSE,DUADRE 
040556 020102 CMP R1,R2 : OK? 
040560 001410 BEQ 102$ : YES. 
040562 HRDERR XPDSE,DUADRE, ; NO. 
040602 102$: 
4027 040602 012701 000001 MOV #1,R1 
4028 040606 RDDSRA PCS,R2 
0606 012777 000001 142220 MOV ASELPCS,@DSR : READ PCS INTO R2 . 
040614 017702 142214 MOV @aDSR,R2 
4029 040620 IFERROR XPPCE,DUADRE 
040620 020102 CMP R1,R2 3 OK? 
040622 001410 BEQ 103$ : YES. 
040624 HRDERR XPPCE,DUADRE,  ; NO. 
040644 103$: 
4030 040644 012701 100000 MOV #100000,R1 
4031 040650 RDDSRA FLG,R2 
040650 012777 000002 142156 MOV #SELFLG,@DSR ; READ FLG INTO R2 . 
040656 017702 142152 MOV aDSR,R2 
4032 040662 IFERROR XPFLE,DUADRE 
040662 020102 CMP R1,R2 3 OK? 
040664 001410 BEQ 104$ : YES. 
040666 HRDERR XPFLE,DUADRE, ; NO. 
040706 104$: 
4033 040706 012701 000003 MOV #3,R1 
4034 040712 RDDSRA CSR,R2 
040712 012777 000003 142114 MOV ASELCSR,@DSR : READ CSR INTO R2 . 
040720 017702 142110 MOV aDSR, 
4035 040724 IFERROR XPCSE,DUADRE 
040724 020102 CMP R1,R2 > OK? 
040726 001410 BEQ 105$ : YES. 
040730 HRDERR XPCSE,DUADRE, ; NO. 


040750 105$: 

4036 040750 012701 000000 MOV #0,R1 

4037 040754 RDDSRA MRR,R2 

040754 012777 000004 142052 MOV #SELMRR,@DSR = ;~- READ MRR INTO R2 . 

040762 017702 142046 MOV aDSR,R2 

4038 040766 042702 170000 BIC #170000,R2 : MASK OUT MPM. 
4039 040772 IFERROR XPMRE , DUADRE 


(ee ee sicemionbinn 


| 
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eee TEST G REGISTERS UNIQUE ADDRESS 
040772 020102 CMP R1,R2 3; OK? 
040774 001410 BEQ 106$ : YES. 
040776 HRDERR XPMRE,DUADRE, 3; NO. 
041016 106$: 
4040 041016 RDDSRA MPM,R2 
041016 012777 000004 142010 MOV #SELMPM,aDSR ; READ MPM INTO R2 . 
041024 017702 142004 MOV aDSR,R2 
4041 041030 042702 007777 BIC #7777 ,R2 : MASK OUT MRR. 
4042 041034 IFERROR XPMPE ,DUADRE 
041034 020102 CMP R1,R2 3; OK? 
041036 001410 BEQ 107$ s YES. 
041040 HRDERR XPMPE,DUADRE, 3; NO. 
041060 107$: 
4043 041060 RDDSRA XRR,R2 
, 041060 012777 000006 141746 MOV ASELXRR,@DSR ; READ XRR INTO R2 . 
041066 017702 141742 MOV aDSR,R2 
4044 041072 042702 170000 BIC #170000,R2 ; MASK OUT XPM, 
4045 041076 IFERROR XPXRE ,DUADRE 
041076 020102 CMP R1,R2 3; OK? 
641100 001410 BEQ 108$ : YES. 
041102 HRDERR XPXRE,DUADRE, : NO. 
041122 108$: 
4046 041122 ENDSEG b KKK KKK KK KEK KKK KKK KKK KKK END SEGMENT. 
4047 041124 COMEND 1$ 
041124 004737 027646 JSR PC,LOOP ; REPEAT ‘TIL LOOPER EXPIRES. 
041130 103401 BCS 109$ 
041132 000402 BR 110$ 
041134 000137 035710 109$: JMP 1$ 
041140 004737 030072 110$: JSR PC,TSTEND ; PRINT ERROR SUMMARY, IF REQ'D. 
4048 041144 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
4049 041150 END. TEST 
IOI IIIT IIR REE EERE REE ERE EE ERR AREA EERE RS 
** 
3* END TEST 4 


© ee HT III TTT TT TTT TT TOTTI TERE EEE EEE EEE REE EEE EEE 


SEQ 0102 


mM 8 
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INCREMENTING REGISTERS 


wee TEST 5 


4051 


4074 
4075 041346 
4076 041350 
041350 
041354 
041356 
4077 041362 
041362 
041370 
4078 041374 
041374 
041376 
041400 
04 


1420 
4079 041420 


004737 
004737 
012701 


012777 
017702 


020102 
001410 


062701 
020127 
001346 


012701 
012703 


012777 
017702 


020102 
001410 


027702 
026074 
000023 


000013 
141552 


000003 
141540 


000020 
000003 


000001 
000020 


000014 
141452 


000004 
141440 


141544 


141444 


SEQ 0103 


WeTTTTETT TITTLE TT LTT e eee ccc PtS tC SSSR SARS 


i 


;@ BEGIN TEST 5 - 
* 


INCREMENTING REGISTERS 


(ITERATION COUNT = 10.) 


: THE READ/WRITE CAPABILITIES OF THE REGISTERS WILL BE CHECKED 
: BY ‘‘INCREMENTING’’ EACH REGISTER FROM ITS LOWEST POSSIBLE 

; VALUE, MINUS 
; IE. 1 10 177777 TO 0. 

; R1I=EXPECTED, R2=RECEIVED, RO,R3=WORK REGS. 


NCREG: COMBEG 
JSR 


ONE, TO ITS HIGHEST POSSIBLE VALUE, PLUS ONE, 


© eH ITT II IRR REE REE REE EERE REE EEE EEE EH 


S PC,TSTGO s TITLE. 
JSR PC, DPRESET : DO SOFT INIT. 
1$: MOV ASELCSR+20,R1 ; INCREMENT CSR. 
BGNSEG y KKKK KKK KEK KK KKK KKK KKK <<< BEGIN SEGMENT. 
2$: WTDSRA R1,CSR 
MOV ASETCSR,RO ; WRITE R1 INTO CSR . 
BIS R1,RO0 


MOV RO, a@DSR 
RDDSRA_ CSR,R2 
MOV ASELCSR,@DSR : 


MOV @DSR,R2 
IFERROR ICSRE,EXPREC 
CMP R1,R2 


READ CSR INTO Re . 


CKLOOP ; LOOP IF ERROR. 


: OK? 
EQ 64$ zg VES. 
“se HRDERR' ICSRE.EXPREC, ; NO. 
CKLOOP ; LOOP IF ERROR. 
ADD #20,R1 ; INCREMENT. 
CMP R1,A4SELCSR ; DONE? 
BNE 2$ ; NO. 
ENDSEG py KKKK KKK KKK KKK KK KKK KKK << << END SEGMENT. 
MOV #1,R1 ; INCREMENT MRR. 
MOV #20,R3 
BGNSEG b KKKK KKK KKK KKK KKK KKK KKK <<< BEGIN SEGMENT. 
3$: WTDSRA R3,MRR 
MOV ASETMRR,RO : WRITE R3 INTO MRR. 
BIS R3,R0 
MOV RO,a@DSR 
RDDSRA MRR,R2 
MOV ASELMRR ,@DSR ; READ MRR INTO R2 . 
MOV aDSR,R2 
IFERROR IMRRE ,EXPREC 
CMP R1, 3 OK? 
BEQ 65$ ; YES. 
658 HRDERR IMRRE,EXPREC, ; NO. 















wen TEST 


4080 041422 


4085 041444 
4086 
4087 041446 
4089 041450 
4090 


4091 041454 
4092 041456 
041456 


041462 
041464 
4093 041470 
4094 041472 
4095 041476 
041476 
1504 
4096 041510 
041510 
041512 
041514 
041534 
4097 041534 
4098 041536 
4099 041542 
4100 041544 
4101 041550 
041550 
041556 
4102 041562 
041562 
041564 
041566 
041606 
4103 041606 
104 041610 
4105 041614 
4106 041620 
4107 041622 
4108 
4109 041624 
4110 041630 
4111 
112 041634 
4113 041636 
041636 
041642 
041644 
4114 041650 
041650 
041656 
4115 041662 
041662 


INCREMENTING REGISTERS 


062703 
01 


012777 
017702 


020102 
001410 


052701 


012777 
017702 


020102 
001410 


062703 
020327 
001316 


012701 
012703 


012700 
050300 
010077 


012777 
017702 


020102 


141344 
007777 


000004 
141324 


001000 
100000 


000005 
141252 


000020 
000020 


000001 
000020 


000016 
141164 


000006 
141152 


141330 


141256 


141156 


4$: 


5$: 


66$: 


50$: 


67$: 


6$: 
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MOV 
IFERROR 
CMP 


BEQ 
HRDERR 


BEQ 
HRDERR 
CKLOOP 
ADD 
CMP 


BNE 
ENDSEG 


nN 8 
17:22 PAGE 58-1 


#20,R3 
#1,R1 
R1,41 


4$ 
#170000,R1 
3$ 


INCREMENT. 


DONE ? 
YES. 
NO. 


y KKK KKK KEK KK KKK KKK KKK KKK END SEGMENT. 


#29,R3 


; INCREMENT MPM. 


b KKK KKK KKK KKK KKK KKK KKK KKK BEGIN SEGMENT. 


R3,MPM 
#SETMPM,RO 
R3,RO 

RO, aDSR 

R3_R 

#7777 ,,R1 
MPM, R2 
#SELMPM, aDSR 
aDSR,R 
IMPME , EXPREC 
R1,R2 


cd 


66$ 
IMPME ,EXPREC, 


R1 

> + aga 
#B1T15,R1 

HBA ,R2 
#SELHBA,@DSR 
@DSR,R2 
IMPWPE ,EXPREC 
R1,R2 


67$ 
IMPWPE ,EXPREC, 


#20.R3* 
R3,420 
5$ 


#1,R1 
#20,R3 


; WRITE R3 INTO MPM . 


;GET WRITTEN DATA 
[LEAVE MASK BITS IN R1 


; READ MPM INTO R2 . 


; Gx? 


YES. 


ASSUME WRITE-PROTECT BIT IS 0 
:DID WE — IT TO 1? 


BR IF 
SET BIT 15 FOR HBASE COMPARE IF YES. 


. 
e 
. 


; READ -HBA INTO R2 . 
; OK? 
= VES. 

NO. 


IF ERROR 


INCREMENT. 
DONE ? 


o N J 
b KKKK KKK KKK KKK KKK KKK KKK <<< END SEGMENT. 


INCREMENT XRR. 


b KKKKK KKK KKK KKK KKK KKK KKK <<< BEGIN SEGMENT. 


R3,XRR 
HSETXRR,RO 
R3,RO 
RO,aDSR 

XRR ,R2 
HSELXRR,@DSR 
aDSR,R2 
IXRRE , EXPREC 
R1,R2 


; WRITE R3 INTO XRR . 


; READ XRR INTO Re . 


vs 
SEQ 0104 a 


runes 


8 9 
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eee TEST 





z 


RERERERE 


oo? St er er 
aed cad ae ed sd 
MnromMror 
Aut wr 
RRR 
YN 
REFER 


4127 

4128 041742 

4129 041744 
041744 


4144 042110 

4145 

4146 042112 
042112 
042116 
042120 


042122 


042126 
4147 042132 


INCREMENTING REGISTERS 


001410 


012777 
017702 


020102 
001410 


052701 


012777 
017702 


020102 
001410 


062703 
020327 
001316 


004737 
103401 
000402 
000137 


004737 


[mont eee 


000020 
000001 
000001 
170000 


000020 


000017 
141056 
007777 


000006 
141036 


001000 
040000 


000005 
140764 


000020 
000020 


027646 


041242 
030072 


141042 


140770 


68$: 


7$: 


8$: 


69$: 


80$: 


70$: 


71$: 
72%: 


BEQ 
HRDERR 


68$ ; YES. 
IXRRE ,EXPREC, ; NO. 

: LOOP IF ERROR. 
#20,R3 ; INCREMENT. 
#1 1,R1 
R1, “#1 : DONE? 
7$° 3; YES. 
#170000,R1 3; NO. 
6$ : 


J KKK KKK EKER ERK KKK KKK KKK KKK END SEGMENT. 


#20,R3 é 


INCREMENT XPM, 


p KCKKKKE KK EEK EEK KKK KKK KKK BEGIN SEGMENT. 


R3,XPM 
#SETXPM,RO 
R3,RO 

RO, aDSR 
R3,R1 
#7777,,R1 
PM ,R2 
ASELXPM,aDSRs; 
aDSR,R2 
1XPME , EXPREC 
R1,R2 


=< 


69$ 
IXPME,EXPREC, ; NO. 


3 ASSUME ay gh a F _BIT IS 0 
DID WE — IT T 


BR IF 
7 SET BIT 14 FOR HBASE COMPARE IF YES. 


R1 
A#BIT9,R3 
80 
#B1T14,R1 
HBA ,R2 

#SELHBA ,@DSR PF 
@DSR ,R2 
IXPWPE ,EXPREC 
R1,R2 


e e 


; WRITE R3 INTO XPM . 


:GET WRITTEN DATA 
LEAVE MASK BITS IN R1 


READ XPM INTO R2 . 


; OK? 


YES. 


READ HBA INTO R2 . 


; OK? 


; YES. 


70$ : 
IXPWPE,EXPREC, ; NO 


; LOOP IF ERROR 


0 . 
#20,R3 ; INCREMENT. 
R3,420 3; DONE? 
8$ ; NO. 
p KKKK KK KKK KKK KKK KK KKK KKK KKK END SEGMENT. 
1$ 
oy gor ; REPEAT ‘TIL LOOPER EXPIRES. 
72$ 
1$ 
PC, TSTEND : PRINT ERROR SUMMARY, IF REQ'D. 
TST : EXIT THIS TEST >>>>5>>>>>>>>>>>>>>>>>>>>> 


SEQ 0105 


SS Se eee ew ee 


————_— -_—_— -- -—- —- -- 
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eee TEST 5 INCREMENTING REGISTERS 
4148 
| 6149 042136 END. TEST 
{RARER ATER ERE EEE EERE ER AREER ARERR RARER RAE E ATTRA TAT TEES 
“* 
3* END TEST 5 
* 


° 
LRAAAEAERER AERA ERATE REAR RATE ARAL RRL ERERRAEERERERARRA RAO EEA ELE EE SS 


SEQ 0106 


‘ae 


D9 
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wee TEST 6 
4151 


| 
4152 


0 
4161 042222 012702 


004737 
042214 004737 


042 4737 
4167 042254 027702 


4177 042346 004737 
4178 042352 004737 
hte 4 042356 


4186 042360 
042 
012777 


4195 042440 004737 


DPU START=STOP 


027702 
026074 


140552 


042550 


140506 


026756 
023422 


eee 


027454 


000240 
140374 
027454 


140562 


140442 


REE EERE AAR EREREREKEAREREREEERAEEARHRERAEKERKEERHEEE 


-* 
** 


BEGIN TEST 6 - 


; CITERATION COUNT = 20.) 


DPU START=STOP 


TOPE RSSESESLLSLE SLES ESE REE ASE E SERS ERE SESE SERA RRR RRS AS RRA R AR AR ARRAS ADDS DDS 


; FIRST INSURE THAT ae? RESUME, DNOP, DJMP, AND STOP 
; ALL FUNCTION CORRECTL 
; IF NOT, ABORT, NO POINT IN CONTINUING. 


ésTST: 


1$: 


2$: 


:; SO FAR, SO GOOD 


COMBEG 

JSR PC,TSTGO 
JSR PC,DPRESET 
BGNSEG : 
MOV HSST2,R2 
MOV aD 


AMSTOP,R 
MOV #SST1,aDPC 
JSR PC ,WAITF 
CMP @aDPC ,R2 


MOV ASST3,R2 
aDPC 


JSR PC WAI TF 
CMP om 


ENDSEG $ 


SSF ,PCSERR 
$ 


RJF ,PCSERR 


TITLE. 
; DO SOFT INIT. 


KKK KEE EK EEE EEE KK BEGIN SEGMENT. 


;SET 1ST EXP"D DPC... 


;...AND DSR. 
;XCT_START, DNOPS, AND STOP. 
:WAIT 1/2 SEC (MORE OR LESS). 
sDPC SHOULD POINT TO *RT2". 
:BR IF IT'S RIGHT. 
: START=NOP=STOP FAILS. 

«BYPASS RESUME TEST. 
10K; SET NEXT EXP'D DPC. 
;XCT RESUME, DNOP'S, AND DJMP. 


3NOW DPC SHOULD BE AT ‘RT3"’. 

:BR IF SO 

;RESUME-NOP-JUMP FAILS. 

[UNHANG IF HUNG 

VERIFY THAT INTERNAL REGS aan STATIC 


KKK KKK KKK KEKE KKK KKK EK KKK END SEGMEN 


NOW LET'S PUT HIM IN A JUMP~SELF 


* LOOP, AND SEE IF WE CAN STOP HIM FROM THE CPU 


5$: 


BGNSEG : 
DPSTART #SST2 
MOV ASST2, aDPC 
JSR PC ,WAITF 
aDPC 

JSR PC ,WAITF 

C 5$ 
HRDERR JSF 
R 6$ 
aDSR 
JSR PC ,WAITF 





2 KKK K KR KKK RRR KEK KK KKK <<< BEGIN SEGMENT. 


: eid THE D 
WAIT FOR DISPLAY STOP. 
RESUME, XCT DJMP SELF. 
wt IF HE'S DOING IT. 
; JUMP SELF FAILS. 


:XCT "'EXTERNAL STOP", 


SEQ 0107 


*. 
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| eee TEST 6 DPU START=STOP SEQ 0108 
| 4196 042444 103410 BCS 6$ ;BR_IF HE STOPPED. 
4197 042446 HRDERR- ESF ;EXT STOP FAILS. 
| 4198 042464 004737 023422 6$: JSR PC, IT IRCHK SMAKE SURE INTERNALS STILL OK. 
| 4199 042472 004737 026756 JSR PC,RELEAS :1T DIDN'T, GO RELEASE DPU. 
ret 042476 ENDSEG : KKK KEKE KEKE KKK KEKE KEKE. END SEGMENT. 
4202 042500 LOOPTO 1$ ; REPEAT ‘TIL LOOPER EXPIRES. 
042500 004737 027646 JSR PC,LOOP 
042504 103645 BCS 1$ 
4203 042506 004737 030072 JSR PC, TSTEND ; PRINT ERROR SUMMARY IF REQ'D. 
rh: 042512 EXIT TST ; EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
4206 + DISPLAY FILE FOR THIS TEST. 


4207 : 

4208 042516 164000 164000 164000 SST1: DNOP,DNOP,DNOP 
4209 042524 173000 STOPN 

4210 eg ti ys 164000 164000 164000 SST2: +a, “penl 


4211 0425 160000 042546 JMP,.+10 

4212 042540 173000 173000 173000 STOPN, STOPN, STOPN ;SHOULD SKIP OVER THESE... 
4213 042546 175000 STOPN j...AND LAND HERE. 

4214 042550 164000 164000 SST3: | DNOP,DNOP 

4215 042554 160000 042554 DJMP,.=2 ;JUMP SELF FOR ‘EXT STOP"’. 
roth 042560 173000 173000 STOPN, STOPN 3 INSURANCE . 

4218 042564 END. TEST 


SRERRAERAAAARAEREEAAEREREREREERERRAREAERRERERAAHEAEERHEAAAAEARARR AAAS 
3* 

¢4 END TEST 6 

3* 

SRAERAAAERARERAAEERAARERERAAEAAARAARARERRARRAARREERARREHAAAH AAA ARENA E ES 


! 


wee TEST 7 
4220 


42 
4235 042674 


4253 043032 


4225 
4226 042632 
042632 
042636 
4227 042642 
4228 042646 
4232 
4233 042672 
34 
4254 
4255 043034 


2589 043050 
4260 
4261 043052 
4262 043060 
4263 043062 
4264 043070 
4265 043076 
4266 


DPU OPCODES 


012703 


012777 


042737 
000673 


027702 


172000 


043440 
027454 
140122 


043440 


022526 


173777 


043440 


043440 


004000 
001777 


., 
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LRRAARORAAAAAAERAAAAAARORERAAAAAARARARARRERARAARAARERAAAREAAAAEAAHERAARERS 


BEGIN TEST 7 - 


DPU OPCODES 


’ 
[ERA AAAARAAAAAREREREARERRAREERARKEARARAERAERARRAARRARAAERERARRRRAEEEE EAD 


; (ITERATION COUNT = 5.) 


; FIRST, 
: DPU, OPCODES 100000 THRU 130000, 


TEST ALL_THOSE OPCODES WHICH XFER PIXEL DATA TO THE 


(CHAR THRU REL POINT). 


; USE ALL 10 BITS OF THE PIXEL DATA FIELD. 


dpcop: 


022300 
043440 


14$: 

1$: 

2$: 
140130 


023056 3$: 
023056 


023056 
023056 
023056 


133777 4$: 


043440 
043440 


COMBEG 
J 


PC,TSTGO 
PC ,DPRESET 


OPC1+6,R2 
#CHAR!LO,OPC1 
A#STOP,R3 


$s TIVLE. 

; DO SOFT INIT. 
CLEAR *LOOP-FLAG*’ 
#20$,EXTA ; 


FOR C=BASE DATA. 
SET ERROR EXTENSION ADDRESS. 

SET EXPECTED DPC. 

3IN!7 OPCODE = CHAR, LEVEL 0. 


7SE1T EXPECTED DSR. 


bp MRKRK KKK KEKE KERR KK KKK KKK BEGIN SEGMENT. 


#OPC1 ,@DPC 
PC ,WAITF 
ea 


3 
PDXI,PCSERR 
OPC1,GDDAT 
#3777, GDDAT 
PC ,FLGCHK 
#1.GDDAT 
PC;-PCSCHK 
ASELCSR,GDDAT 
Pp Hk 


PC .MMCHK 3s 


PC ,XMCHK : 


R3,4STOP!1777 
4$ 


R3 
OPC1 
2$ 


cy meena 


START, XCT OPCODE+DATA. 


As DSR = STOP + DATA ?? 


[PIXEL DATA XFER WRONG. 
GET OPCODE 
;CLEAR OUT INTENSIT 
;SEE THAT OPCODE iS. IN FLAGS. 
sEXP ECT ‘‘EMPTY*' . oie 
AND GO CHECK FOR IT 
ZERPECT CLEAR CSR (EXC. SEL). 
CHECK FOR IT. 
:EXPECT CBASE cis 0 OR DNOP.. 
AND CHECK FOR IT. 
ZEXPECT 0 IN REMAINING REGS.. 
.-MAIN MEM MGMT. 
. AUX MEM MGMT. 
HISTOGRAM BASE. 


2 


3 cece NE END SEGMENT. 
ALL DATA BITS DONE ?? 

[BR IF SO. 

:NO BUMP DATA BITS.. 


-HERE TOO.. 
“AND CONTINUE. 


;DONE THRU RPNT ??? 
; IF SO 


#B1T11,0PC1 ‘NO, SET NEXT OPCODE... 
#1777,0PC1 *.. LEVEL 0... 
1$ +72 AND CONTINUE. 


SEQ 0109 


G 9 
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_ eee TEST 7 DPU OPCODES SEQ 0110 
4267 : NOW OF THE REMAINING OPCODES (134000 = 176000), EXECUTE ALL 
4268 : EXCEPT BMO/BM1(134000/136000), DJMP(160000), AND STOP(172000), 
4269 : WITH BITS <9:0> OF THE OPCODE = ZERO, AND NO FOLLOWING DATA. 
4270 ; THEY ALL (INCLUDING THOSE UNDEF INED/SPARE ) SHOULD APPEAR AS 
4271 + NOPS, HAVING NO AFFECT ON THE DPU AS FAR AS FINAL REGISTER 
4272 ; CONTENT IS CONCERNED. 
| rit : NOTE: THIS TEST WILL LEAVE IM CHAN O INA *PROTECT’’ STATE. 
4275 043100 017704 137732 S$: MOV @DXR,RS ; ALL REGISTERS SHOULD REMAIN... 
4276 043104 017705 137730 MOV aDYR,R5 ; UNCHANGED. 
ps 3e4 043110 012737 140000 043440 MOV #140000,0PC1 : FIRST OPCODE = 1ST SPARE. 
| tSan 043116 6$: BGNSEG b KKK KKK KEKE KKK KKK KKK KKK << BEGIN SEGMENT. | 
4 
| e831 043120 012777 043440 137704 MOV #OPC1,aDPC 
4282 043126 004737 027454 JSR PC ,WAITF 
4283 043132 027702 137674 CMP @DPC,R2 
4284 043136 001003 BNE 7$ | 
4285 043140 027703 137670 CMP @DSR,R3 
4286 043144 001411 BEQ $ 
4287 043146 7$: HRDERR OPCF,PCSERR zPC OR SR WRONG AFTER NULL. 
4288 043166 000416 BR 11$ 
4289 043170 027704 137642 &$: CMP @DXR,R4 
4290 043174 001003 BNE 9$ 
4291 043176 027705 137636 CMP aDYR,R5 
4292 043202 001410 BEQ 11% 
4293 043204 9$: HRDERR OPCF,XYERR :XR OR YR WRONG AFTER NU 
4294 043224 012737 130000 023056 11$: MOV #RPNT , GDDAT SAY WE SHOULD SEE FRPNT OP IN FLAGS. 
4295 043232 023727 043440 144000 CMP OPC1,ARNLN G0 TO ~~ Bante YET? 
4296 043240 103403 BLO 10$ :BR IF 
4297 043242 012737 144000 023056 MOV #RNLN, GDDAT z1F YES, NOT XPECT TO SEE IT. 
4298 043250 004737 022410 10$: JSR PC,FLGCHK + CHECK FLAGS FOR THE GRAPHIC OP. 
4299 043254 012737 000003 023056 MOV MSELCSR,GDDAT i++» CHECK OTHER REGS, EXCEPT HBASE & CBASE 
4300 043262 004737 022440 JSR PC, CSRCHK es 
4301 043266 012737 000001 023056 MOV #1,GDDAT 
4302 043274 004737 022360 JSR PC ,PCSCHK z.--PCSAVE 
4303 043300 005037 023056 CLR GDDAT : OTHERS S/B 0 
4304 043304 004737 022466 JSR PC ,MMCHK .-MAIN MEM MGMT 
4305 043310 004737 022566 JSR PC ,XMCHK AUX MEM MGMT 
is] 043314 ENDSEG 3 KKK KK KEKE EE EEE KEKE KEKE END SEGMENT. 
4308 043316 062737 002000 043440 15$: ADD #B1T10,0PC1 SET NEXT OPCODE. 
4309 043324 023727 043440 160000 CMP OPC1,#DJMP 
4310 043332 001771 BEQ 15$ ; BYPASS DJMP... 
4311 043334 023727 043440 172000 CMP OPC1,4STOP 
4312 043342 001765 BEQ 15$ z..-AND STOP. 
4313 043344 023727 043440 162000 CMP OPC1,4IMREAD : BYPASS DMA PIXEL READ. 
4314 043352 001761 BEQ 15$ : 
4315 0433 005737 043440 TST OPC1 ; DONE THRU yon OPCODE ?? 
ars 043360 001256 BNE 6$ CONTINUE IF NOT. 
4318 043362 013737 043442 023054 i2$: MOV OPC 1+2,LO0PFL GET DATA FOR CHAR-BASE | 
4319 043370 LOOPTO 13$ ;REPEAT ‘TIL LOOPER EXPIRES. (BRANCH OUT OF RANGE) ;ad@al 
043370 004737 027646 JSR PC,LOOP 
043374 103404 BCS 1 
4320 043376 004737 030072 30$: JSR PC, TSTEND 


4321 043402 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
Ce or ee & 


o - a - - ——= 


| @ee FEST 
ta5$ 043406 000137 042654 


36 000207 


| 4330 
4331 043440 102000 164000 . 


4332 
4333 043446 


9 
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DPU OPCODES 


13$: JMP 14$ 
: ON ERROR, 
50s: 


RTS 


+ DISPLAY CODE. 


173000 OPC): 


PORE RARER RAEHAAEEEAERAEREREEAAREEHRAHERERHREHREH HEHEHE HREREHAHHETEREE 


-@ 
-* 


CHAR!LO, DNOP, STOPN 


END. TEST 


END TEST 7 


PRINTX ~ sPycdesentae 


;USE JMP TO GET BACK FOR LOOP. 
SHOW THE FAILING CPU OPCODE. 


; EXTENSION SHOWS BAD OPCODE. 


; DISPLAY CODE. 


 caaenadeedsenncetectenedeesbansbansseatannseneenenesaaeeeseonsseeneseses 


SEQ O11 


ee ee eer ES ee ee ee 
SSS 


. o 
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eoe TEST 6 INCREMENTING HISTOGRAM BASE ADDRESS SEQ OTT2 


4335 


° SOOSSHSHEHEHAESSE HEHEHE EHH HHHSEHHEHESHHHEHEHEEAEEHOHSTHTESHAEEHEHEHEEE 


:* BEGIN TEST 8 =  INCREMENTING HISTOGRAM BASE ADDRESS 


> (ITERATION COUNT = 5.) 


TOGRAM COORDINATE wilt BE 


; THE READ/WRITE CAPABI $ 
776 7 


Ty, OF THE BASE HI 


Z L 
4339 ; CHECKED BY ““INCREMENTING’’ IT FROM 2 TO 1 0 0. 
4%40 : (NOTE THAT THE WRITTEN DATA WILL APPEAR SHIFTED 1 PLACE TO THE RIGHT.) 
tte ; Ri= EMPECTED, R2=RECEIVID, RO,R3=WwORK REGS. 
43%43 
4346 0635446 INCHBA: COMBEG 
043544 004737 027702 JSR PC. TSTGO zs TITLE. 
643550 006737 026076 JSR PC .DPRESET : DO SOFT INIT. 
4%5 063554 012703 000002 1$: OV #2,R3 
4346 0463560 RGNSEG p KKK RRR EEE KKK BEGIN SEGMENT. 
43%47 063562 010337 043712 2s: MOV R3,71$ ; SE’ VALUE FOR HBA CODE. 
4348 043566 010301 MOV R3z,R1 
43%49 063576 1 ASR R17 
4350 063572 012777 043710 137232 MOV #108, aDPC : WRITE HBA. 
4351 043600 006737 027454 J PC WAITF 
4352 04636046 RDDSRA HBA,R2 
043604 012777 000005 137222 MOV #SELHBA,@DSR : READ HBA INTO R2 . 
063612 017702 137216 MOV 6 
4353 043616 IFERROR [HBAF LE NPREC 
043616 020102 me R1,R2 : Ox? 
043620 001410 BEQ 648 : VES. 
04 3622 HRDERR JHBAE .ENPREC, NO. 
04 3642 648: 
4356 0463642 cx. OOP 3 ‘ 
4355 063644 062703 000002 ADD 2,R ; INCREMENT. 
4356 063659 042703 176001 BIC #176001.R5 ; MASK D. 
4357 063654 020327 000000 ‘tg R3. s ? 
4358 043660 001340 BNE : NO. 
4359 043662 308: ENDSEG b KORE KK EKER ERE ERE RE KEKE END SEGMENT. 
4360 043664 COMEND 1§ 
043664 006737 027646 JSR PC LOOP ; REPEAT “TIL LOOPER EMPIRES. 
043670 103401 acs 658 
043672 02 as 663 
043674 000137 0435546 65$: ee $ 
063 0064737 030072 668: JSR PC. TSTEND ; PRINT ERROR SUMMARY, IF REG"D. 
4361 043706 EulT rs? > EMIT THIS TEST >>>>>>>>>>>>>>>>>>>> >>> >>> 
4 
pers Z 
tr} : DISPLAY CODE. 
4366 063710 150000 tos SETHE 
4367 043712 000000 71§: 0 
4368 043714 173000 STOPN 


(Svil7y5"1 <= GrepHic 
eee TES’ 8 INCRE 
6%9 


4370 063716 


END.TEST 


e END TES’ 8 
& 


; 

’ 

; 

! 

' 

ee Ee ae ee ee OTE LE — 


SEQ O175 


ener nanan: te 
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INCREMENTING CHARACTER BASE ADDRESS 


eee TEST 
4372 


4380 044014 


044140 


i 044154 
4403 044156 


004737 
004737 
012701 
010137 
012777 
004737 


012777 
017702 


020102 
001410 


062701 
020127 
001344 


004737 
103401 
000402 
000137 


004737 


152000 
600000 
173000 


027702 
026074 
0C0001 
044152 
044150 
027454 


000007 
136752 


000001 
000000 
027646 


044024 
030072 


136766 


136756 


a eee ee 


BEGIN TEST 9 - INCREMENTING CHARACTER BASE ADDRESS 


REAR ERR ER REERESR ERR ERE EAE RAER ARERR AREER RE ERS 


; (ITERATION COUNT = 2.) 


THE READ/WRITE CAPABILITY OF THE BASE “iii got ee WILL BE 


IT FROM 1 TO 177 


; RI= EXPECTED, R2=RECEIVED, RO,R3=WORK REGS. 


: CHECKED BY ‘ ‘INCREMENT ING'' 


INCCBA: COMBEG 
JSR 


1$: 
2$: 


64$: 


30$: 


65$: 
66$: 


PC,TSTGO 
JSR Spee 


’ 


; TITLE. 

; DO SOFT INIT. 

pb KKK KKK KKK KKK KKK KKK KK KKK <<< BEGIN SEGMENT. 
R1,11$ ; SET VALUE FOR CBA CODE. 

MOV #10$,aDPC ; WRITE CBA. 

JSR PC ,WAITF 
CBA,R2 

MOV #SELCBA,@DSR ; READ CBA INTO R2 . 

MOV aDSR,R2 

IFERROR ICBAE,EXPREC 

CMP R1,R2 ; OK? 

BEQ 64$ » Ves. 


HRDERR ICBAE,EXPREC, : NO 

CKLOOP ; LOOP ON ERROR. 

ADD #1,R1 ; INCREMENT. 

CMP R1,40 : DONE ? 

BNE 2s NO. 

ENDSEG 2 KKK KK KEK KKK KKK KKK KKK KK <<< END SEGMENT. 
COMEND 1$ 

JSR PC,LOOP ; REPEAT ‘TIL LOOPER EXPIRES. 

BCS 65$ 

BR 66$ 

JMP 1$ 

JSR PC, TSTEND ; PRINT ERROR SUMMARY, IF REQ'D. 
EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


* DISPLAY CODE. 


10$: 
11$: 


ie 
STOPN 
END. TEST 


PERERA TATA TAA AA ALAA AAT AAA AAA A AAA AAR RAS A AA TTS 


SEQ 0114 


< 


co ne ee eet — 


L_ 9 
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a 
RRR ER EAR RARRAEEERRREEEREEREEERAEEAEEAEKEEEEREKERER RE 


eee TEST G9 ’ INCREMENTING CHARACTER BASE ADDRESS SEQ 0115 
“to 
5° END TEST 9 
** 


ae 


———————————_-- 


9 
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vi 
eee TEST 10 DJMS/DPOP SEQ 0116 | * 
4405 | 
soeenennnnaaareerearesereeenensennesennssaneasenetereqesnsnesaeeesneuen | 
** 
* BEGIN TEST 10 = DJMS/DPOP 
** 
te eH I ITE ICT TT TT TT TT TTT TTI TITER EKER EKER REE EERE KH 
: (ITERATION COUNT = 10.) 

4406 

4407 H 

rer : CHECK THE OPERATION OF THE DJMS AND DPOP OP CODES. 

4410 044222 JMSPOP: COMBEG 
044222 004737 027702 JSR PC,TSTGO * TITLE. 

“411 044226 004737 026074 JSR PC,DPRESET ; DO SOFT INIT. 

nh 044232 1$: BGNSEG p KKK KKK KKK KK KKK KKK KKK KK << << BEGIN SEGMENT. 

4414 044234 DPSTART #10$ ; DOA + 
044234 012777 044630 136570 MOV #10$,aDPC : START THE DPU 
044242 004737 027454 JSR PC,WAITF : WAIT FOR DISPLAY STOP. 

4415 044246 012701 044646 MOV #21$,R1 

4416 044252 017702 136554 MOV aDPC,R2 READ DPC INTO R2. 

4417 044256 IFERROR JPDPCE, EXPREC. »CKLOOP 
044256 020102 CMP R1,R2 OK? 

044260 001411 BEQ 64$ YES. 
044262 HRDERR SPDPCE .EXPREC, CKLOOP ; NO. 
044304 64$: | 

4418 044304 012701 044634 MOV #11$,R1 

4419 044310 RDDSRA PCS,R2 
044310 012777 000001 136516 MOV #SELPCS,@DSR ; READ PCS INTO R2 . 
044316 017702 136512 MOV aDSR,R2 

4420 044322 IFERROR JPPCSE,EXPREC,,CKLOOP 
044322 020102 CMP R1,R2 3; OK? 
044324 001411 BEQ 65$ s YES. 
044326 HRDERR JPPCSE,EXPREC,CKLOOP 3; NO. 
044350 65$: 5; | 

4421 044350 DPCONT ; NOW DO A DPOP. | 
044350 052777 000001 136454 BIS #BITO,aDPC s CONTINUE THE DPU. ee b 
044356 7 027454 JSR PC, WAI TF : WAIT FOR DISPLAY STOP. 3 

4422 044362 012701 044636 MOV #12$, R1 

4423 044366 017702 136440 MOV @DPC,R2 READ DPC. 

4424 044372 IFERROR JPDPCE, EXPREC. ,CKLOOP 
044372 020102 CMP R1,R2 OK? | 
044374 001411 BEQ 66$ YES. 
044376 HRDERR SPDPCE .EXPREC , CKLOOP ; NO. 
044420 66$: 

4425 044420 DPCONT ; DO A DJMS (WITH AUX SEG BIT SET). 

044420 052777 000001 136404 BIS #BITO,aDPC : CONTINUE THE DPU 
044426 004737 027454 JSR PC, ,WAITF ; WAIT FOR DISPLAY “STOP. 

4426 044432 012701 044647 MOV #21$!AUXSEG,R1 

4427 044436 017702 136370 MOV aDPC ,R2 ; READ DPC INTO R2. 

4428 044442 IFERROR JPDPCE, EXPREC, , CKLOOP 
044442 020102 CMP R1,R2 ; OK? 


044444 001411 


BEQ 67 YES. 
HRDERR JPDPCEEXPREC, CKLOOP : NO. 








N 9 
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DJMS/DPOP 


eee TEST 10 


044470 
4429 044470 


4430 044474 
044474 


044502 
4431 044506 
044506 


044534 
4432 044534 
044534 
044542 
4433 044546 
4434 044552 
4435 044556 
044556 
044560 
044562 
044602 
“a 044602 
4438 044604 
044604 


ery | 044642 
4448 044644 
4449 044646 
4450 044650 


4451 
4452 044652 


012701 


012777 
017702 


020102 
001411 


052777 


017702 


020102 
001410 


004737 


173000 
165000 
173000 


044642 


000001 
136326 


136254 


027646 


044232 
030072 


044644 
044645 


136332 


136270 


67$: 


68$: 


69$: 


70$: 
71$: 


MOV #13$,R1 

RDDSRA PCS,R2 

MOV AMSELPCS ,@DSR ; READ PCS INTO R2 . 
MOV aDSR,R 

IFERROR JPPCSE ,EXPREC,,CKLOOP 

CMP R1,R2 ; OK? 

BEQ 68 3 VES. 

HRDERR JPPCSE,EXPREC,CKLOOP : NO. 

DPCONT 3; NOW DPOP eat 
BIS #BITO,aDPC ; CONTINUE THE DPU. 
JSR PC WAI TF ; WAIT FOR DISPLAY STOP. 


MOV #20$,R1 


MOV aDPC ,R2 ; READ DPC. 

IFERROR JPDPCE ,EXPREC 

CMP R1,R2 3; OK? 

BEQ 69$ s Yes. 

HRDERR JPDPCE,EXPREC, ; NO. 

ENDSEG b KK KKK KKK KKK KK KKK KK KKK KKK << END SEGMENT. 
COMEND 1$ 

JSR PC,LOOP ; REPEAT ‘TIL LOOPER EXPIRES. 
BCS 70$ 

BR 71$ 

JMP 1$ 


JSR PC,TSTEND ; PRINT ERROR SUMMARY, IF REQ'D 
EXIT TST : EXIT THIS TEST >>>>5>>>>>>>>>>>>>>>>>>>>> 


+ DISPLAY CODE 


NS WhO 
AA AHMWMH 


Monon) 


DJMS , 20$ 

STOPN 

DJMS , 20$! AUXSEG 
STOPN 


END. TEST 


© FI I I TOTTI TTT TTT TOTO TORO TTT TO ITT TOTTI TOTTI AKEEE KEIR EEE 


-* 
-* 
-* 


END TEST 10 


© i TT RIOT TOTTORI ITO TOTO TOT TIKIT RE EEE EEE REE EE ERE EEE Ee 


SEQ 0117 


V' 


. 2 










eee TEST 11 
4456 


4460 044744 
044744 
4750 


4467 045012 
4468 
4469 
4470 045016 
4471 045022 


4472 
4473 045026 
4474 
4475 045030 


B 10 
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MAIN MEM MGT ACCESS (OVER ‘@ 


032700 
001410 


004737 
012703 


010337 


012777 
004737 
000413 
004737 


012715 
004737 


052777 
004737 
010501 


027702 
026074 
003244 


001000 


031322 
001600 


172354 


000014 
135754 


000000 
027454 


031270 
164000 
031306 


000001 
027454 


135724 


135674 


RA AA RAE A EAE R ETE EEE E LTTE EEA RRERHAARRRRAERERERAE REE R ETRE ERA RRR EE EES 
* 


ad BEGIN TEST 11 - 


; MAIN MEM MGT ACCESS (OVER 28K) 


° RARER RATER EERE EEE EEE AREA ERRATA EERE EERE EH 


; (ITERATION COUNT = 1.) 


+ CHECK THAT A DISPLAY FILE CAN BE ACCESSED VIA MAIN MEM MGT. 
; IN MEMORY OVER 28K. 


MMMAC: COMBEG 

JSR PC,TSTGO > Taree 

JSR PC ,DPRESET ; DO SOFT INIT. 

TST KTFLG ; GOT KT & >28K? 

MMMACA = Ves. 

RFLAGS RO ; ARE WE PRINTING TEST NOS.? 

BIT #PNT,RO =F 

BEQ 1$ ; BR IF NO == DON'T PRINT 

PRINTF #MNOKT ; NO. 
1$: EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
MMMACA: JSR PC ,KTBKGD ; SET UP BACKGROUND. 
1$: MOV #1600,R3 : INIT BANK PTR, (TO START OF 28K PAGE) 
2$: BGNSEG p KKK KKK KKK KKK KKK KKK KK KKK BEGIN SEGMENT. 

MOV R3,d4K] PAR6 : SET KT TO TEST PAGE. 

MOV R3,R1 ; SET UP MRR. 

ASL R1 

ASL R1 

ASL R1 

SL R1 

WIDSRA R1,MRR 

MOV #SETMRR,RO ; WRITE R1 INTO MRR . 

BIS R1,RO0 

MOV RO,a@DSR 

MOV #140000,R5 : INIT LOC PTR. 

JSR PC,KTON : ENABLE KT. 

MOV #DNOP, (R5) ; REPLACE ‘’STOPN’' WITH ‘DNOP’* IN TEST LOC. 

JSR PC,KTOFF ; DISABLE KT. 

DPSTART # 

MOV #0,aDPC ; START THE DPU. 

JSR PC ,WAITF ; WAIT FOR DISPLAY STOP. 

BR 4$ 
3$: JSR PC,KTON ; ENABLE KT. 

MOV A@DNOP, (RS) ; REPLACE ‘’STOPN’’ WITH *DNOP*’ IN TEST LOC. 

JSR PC ,KTOFF ; DISABLE KT. 

DPCONT 

S #B1T0,aDPC : CONTINUE THE DPU. 

JSR PC ,WAITF : WAIT FOR DISPLAY STOP. 

4$: MOV R5,R1 : R1 = EXPECTED DPC, AND - 


SEQ 0118 


r—- 


4494 045144 


4500 226 
4501 045232 
4502 

4503 045236 


4510 045264 

4511 

4512 045266 
045266 


045302 
4513 045306 
4514 045312 
4515 
4516 
arte 045316 
4519 045366 


MAIN MEM MGT ACCESS (OVER 28K) 


017702 


At 1k 
017704 


020102 
001002 
020304 
001410 


170000 
000004 
135652 


000004 
135642 


P41 
173000 
031306 


000002 
147774 
003244 
000200 


027646 


045022 


030072 
031306 


116 


135646 


65$: 
64$: 


o$: 


66$: 
67$: 


045 MNOKT: 


BIC 
ADD 


-ASC1Z 
EVEN 
END. TEST 


C 10 
ee i == GRAPHIC SYS. DIAG MACRO M1113_ 29-JAN=81 17:22 PAGE 64-1 
ef 


#170000, R1 
#4,R 

apPc, "2 
MRR RR 
#SELMRR ,aDSR 
@DSR,RS 
MMMACE , MMMAE 
R1,R2 

65$ 

R3,R4 

4$ 


PC,KTON 
#STOPN, (R5) 
PC ,KTOFF 


#2,R5 
R5 4147774 
3$ 


R3,KTFLG 
9$ 
#200,R3 
2$ 

1$ 

PC LOOP 
66$ 

67$ 

1$ 

PC, TSTEND 


PC ,KTOFF 
TST 


/%2N%A 


6 
MMMACE ,MMMAE , 


+ = (R3 ALREADY = EXPECTED MRR). 


[ti WO KT, 


READ DPC INTO Re. 


; READ MRR INTO RG . 


1ST ITEM OK? 


NO. 
; 2ND ITEM OK? 
YE 


; ENABLE K 


REPLACE "BNOP" WITH ‘'STOPN’’. 
DISABLE KT 


; ADVANCE LOC PTR. 
; DONE ENOUGH LOCS? 


NO. 
3 EE EEEEKK KEE EEEKEEKE EE EEE END SEGMENT. 


YES. ALL BANKS DONE? 


YES. 
; NO. ADVANCE BANK PTR. 


REPEAT ‘TIL LOOPER EXPIRES. 


PRINT ERROR SUMMARY, IF REQ'D. 
DISABLE KT11. 
EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


OR <32K = NO TEST !!!/ 


errr TTT TTC TCC CCC CCC CCC CATA PCCP PCP PPP PPP PSPC PCC SE SRS SRE A RRR R EDO 


. 

P| 
** 

e 

** 

* 

° 


END TEST 


11 


ET RRR REE REE EERE EERE EEK ERE EERE REE 


SEQ 0119 


‘ee 


D_10 
VSV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113 29=JAN=81 17:22 PAGE 65 
AUX MEM MGT ACCESS (OVER 28k) 


| 
| wee TEST 12 
4521 


45 

4527 045456 
045456 
045462 

4528 045466 


4534 045524 
4535 
4536 
4537 045530 
4538 045534 
4539 
4540 045540 
4541 
4542 045542 


4548 045560 
045560 
045564 
045566 

4549 045572 

606 

1885 045612 
045612 
045620 

4554 045624 

4555 

4556 045626 


045650 
4560 045654 


004737 


001016 


032700 
001410 


004737 
012703 


010337 


012777 
004737 
000413 


052777 
004737 
010501 


027702 
026074 
003244 


001000 


031322 
001600 


172354 


000016 
135242 
140000 
031270 


164000 
031306 


046030 
027454 


031270 
164000 
031306 


000001 
027454 


RRR ERR EERE EERE REAR R EERE AERA EEARER RATER ARE 


BEGIN TEST 12 = 


** 
-*® 


; (ITERATION COUNT = 1.) 


AUX MEM MGT ACCESS (OVER 28K) 


 pqneceeeseeweceneresseeeeonsenecensensecseaqeeqenseseseneseneneeeseses 


: CHECK THAT A DISPLAY FILE CAN BE ACCESSED VIA AUX MEM MGT. 
; IN MEMORY OVER 28K. 


KMMAC : 


1$: 


XMMACA: 
1$: 


2$: 


135212 


3$: 


135162 
4$: 


PC,TSTGO 
PC ,DPRESET 


PC,KTBKGD 
#1600,R3 


; TITLE. 
; DO SOFT INIT. 
; GOT KT & >28K? 


YES 
ARE WE PRINTING? 
RR IF NO 


NO. 
EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


SET UP BACKGROUND. 
INIT BANK PTR. 


b KKKK KKK EEK KKK KKK KKK KK KK KKK BEGIN SEGMENT. 


Sealine 


7108, aDPC 
PC WAI TF 
4$ 


PC,KTON 
#DNOP ,, (R5) 
PC ,KTOFF 


#B81T0,aDPC 
PC,WAITF 
R5,R1 


; SET KT TO TEST PAGE. 


SET UP XRR 


WRITE R1 INTO XRR . 


INIT LOC PTR. 


ENABLE KT. 
REPLACE "STOPN'" WITH *DNOP’’ IN TEST LOC. 
DISABLE K 


START THE DPU. 
WAIT FOR DISPLAY STOP. 


ENABLE KT. 
REPLACE ‘‘STOPN’' WITH ‘DNOP’’ IN TEST LOC. 
DISABLE KT. 


; CONTINUE THE DPU. 
; WAIT FOR DISPLAY STOP. 


R1 = EXPECTED DPC, AND - 


SEQ 0120 


a 
| ySV11/yS11 <= GRAPHIC SYS. DIAG MACRO M1113 29-JAN=-81 17:22 PAGE 65 
12 x MEM MGT ACCESS (OvER 28K) 


| wee TEST 


| 
| 


4561 045656 


046010 
046014 
4580 046020 
4581 046024 
4582 


4583 
4584 


4585 
4586 046030 
4587 046034 


4588 
2389 046036 


042701 
062701 
017702 
012777 
017704 


020102 


004737 
012715 


000137 


004737 
004737 


160001 
173000 


170000 
000005 
135140 
000606 
135130 


031270 
173000 
031306 


000002 
147774 
003244 
000200 


027646 


045534 


030072 
031306 


000001 


135134 


BEQ 
65$: 
64$: 


9$: COMEND 


66$: 
673%: JSR 


+ DISPLAY CODE. 


Am R1 
aDPC ,R2 

XRR RG 
#SELXRR,@DSR 
aDSR,R4 
XMMACE , XMMAE 
R1,R2 

65$ 

R3,R4 

64$ 
XMMACE , XMMAE , 
PC ,.KTON 


#STOPN, (RS) 
PC ,KTOFF 


#2,R5 
R5 4147774 
3$ 


R3,KTFLG 
9$ 
#200,R3 
2$ 

1$ 

PC ,LOOP 
66$ 

67$ 

1$ 

PC, TSTEND 


PC ,KTOFF 
TST 


10$: DJMS , AUXSEG 
STOPN 


END. TEST 


- (R3 ALREADY = EXPECTED XRR). 
READ DPC INTO Re. 


READ XRR INTO R4 . 


1ST ITEM OK? 
NO. 
2ND ITEM OK? 
YES. 
NO. 


ENABLE KT 


* REPLACE 'DNOP'’ WITH ''STOPN’*. 
* DISABLE KT. 


; PRINT ERROR SUMMARY, 


ADVANCE LOC PTR. 
ty ENOUGH LOCS? 
40. 


BKK EKER KKK EK KKK KKK KKK KKK <_-END SEGMENT. 


YES. ALL BANKS DONE? 


s VES. 
: NO. ADVANCE BANK PTR. 


; REPEAT ‘TIL LOOPER EXPIRES. 


IF REQ'D. 


; DISABLE KT11. 
: EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


LUA AAAAR AEA EA AEA E LEELA ER AAAAAEHAAA EAHA AA EHERERE HERAT RAHA RATAN SEAS 


°? 


:* END TEST 12 


. 
seeeeereererereenareneeaTeneeatHetareeeeneneaananeNseAseneassaseNeeaeee 


SEQ 0121 


F 10 
wine GRAPHIC SYS. DIAG MACRO M1113 29=JAN=81 17:22 PAGE 69 


wee TEST 1 
4594 


STOP INTERRUPT 


FRRAAAAAERAAAAEATARAAAAEEERERARERARARERAEAARRARRAERARRAEREAAREREEHEARERAERD 


4597 : 


* * 
“ val 
Oo 
“i 


99 : 
or 046110 004737 027702 ST 
4602 046114 19 
4603 
4604 046116 004737 025402 


6122 012737 177601 026106 
4606 046130 012777 046742 134674 


4607 046136 004737 027454 1$: 


4608 046142 105737 026107 
4610 046150 012701 046136 


4612 046174 004737 023422 2$: 


4613 046200 
046200 012737 177601 026106 
4614 046206 012777 046746 134614 


4615 046214 004737 027454 3$: 


4616 046220 105737 026107 
4618 046226 012701 046214 


4620 046252 004737 023422 4$: 


256 012737 177600 026106 
4622 046264 012777 046752 134540 


4623 046272 004737 027454 5$: 


4624 046276 123727 026107 000377 
012701 046272 


4628 046332 004737 023422 6$: 


012737 177600 026106 
4630 046344 012777 046760 134460 


4631 046352 004737 027454 7$: 


4632 046356 123727 026107 000377 


2 
4634 046 012701 046352 
4635 046372 


4636 046412 012777 000053 134414 &$: 


4637 046420 
046420 012737 177601 026106 


BEGIN TEST 13. = 


{AARAAAAAAAAAAAAARERAAEEELERAAARAKRAAREREARERAAAARRERRAERAARAAREAARAERES 


STOP INTERRUPT 


(ITERATION COUNT = 40.) 


CHECK THE ACTION OF THE STOP INTERRUPT. 
ALSO CHECKED IS THE ACTION OF THE CSR ‘FORCE STOP INTR’’ BIT. 
REPEAT 40 TIMES AFTER QUICK PASS. 


PTST: JSR 
$: BGNSEG 


PC,TSTGO TITLE 
fp KKK KEE K KEKE EK EK KEKE KKK BEGIN SEGMENT. 


stp -DPINIT ; INIT THE DPU SO WE CAN CHECK INTERNAL REGS. ;a@aal 


#*0177400! IOKCKIN: IOKSTP, INTMASK ; PRIME FLAG, EXPECT STP 
oF ad 4 PC :XCT “'STOP AND INT*’. 

INTFLAG ; DID WE GET AN INTERRUPT? 

2$ :BR IF oth yey REC'D. 

#1$,R1 3PC_AT WAIT TIME. 

NSI, INTERR INT EXP'D, NOT REC'D. 


An [IRCHK SCHECK INTERNALS FOR INIT'ED STATE. 


STP 
#*0177400: Re tae INTMASK ; PRIME FLAG, EXPECT STP 
#STP2,aDPC zXCT “STOP’', ENABLE STILL SET. 


PC WAI TF 

INTFLAG :DID WE GET AN INTERRUPT? 
4$ [BR IF INTERRUPT REC'D. 
#3$,R1 ;SET PC AT WAIT TIME. 


NSI,INTERR INT EXP'D, NOT REC'D. 

PC, ]IRCHK ZCHECK INTERNALS FOR INIT'ED STATE 

#*0177400! omer INTMASK :, ati | Some NO INTR. EXPECTED. 
#STP3, i xCT ‘'l OFF*' AND *'STOP 

PC WAI TF 

INTFLAG,#*0377 DID WE ad beg AN INTERRUPT? 

6$ :BR IF NO INTERRUPT. 

#5$,R1 

USI, INTERR INT REC*D, NOT EXP'D. 

PC, ] IRCHK TCHECK INTERNALS FOR INIT'ED STATE 

#*0177400! IOKCKIN, INTMASK 7,.PRIME | hatte NO INTR. EXPECTED. 
amit :CT "I ON’ AND “STOP N 

INTFLAG,#*0377 ;DID WE GET AN INTERRUPT? 

oS. at ;BR IF NO INTERRUPT. 


USI, INTERR INT REC'D, NOT EXP'D. 
#FORCSI 'wWRTCSR,a@DSR :SET BIT TO FORCE STOP INTR. 


STP 
#*0177400! IOKCKIN! JOKSTP, INTMASK : PRIME FLAG, EXPECT STP 


SEQ 0122 


ee is GRAPHIC SYS. DIAG 


eee TEST 


———_—---- 


4638 046426 


4687 
4688 046766 


STOP INTERRUPT 


100412 
012701 
004737 


004737 
103404 
004737 


000137 


164002 
164002 


164002 
164002 


046752 
027454 
026107 


04664 34 


177601 


046506 


022410 
177600 


027454 
026107 


046644 
023434 


027646 
030072 
046114 


173400 
172000 


171000 
171400 


G1 
MACRO M1113 29-JAN@81 17:22 PAGE oo 


0 
1 


134376 MOV #STP3,aDPC MCT “"I-OFF'' AND STOP 
JSR PC WAI TF sWwAIT FOR DONE 
TST8 INTFLAG sDID WE GET AN INTERRUPT? 
BEQ 108% ‘BR IF YES == OK 
MOV #9$,R :GET CPU PC FOR ERR REPORT 
HRDERR iit INTERR :INTR EXP'D, NOT REC'D 
108: INTSET 
026106 MOV #-0177400: — ae INTMASK ; PRIME FLAG, EXPECT STP 
1343246 MOV @STP4,aDP 3 “T<0N'' AND "'STOP NT 
11$: JSR PC mall AIT FOR DONE. 
TSTB INTFLAG :DID WE GET AN INTERRUPT? 
BEG 12$ Sees IF YES == OK 
MOV #11$,R1 r 
HRDERR NSI,INTERR sREPORT IF NOT 
134262 128: MOV #O'WRTICSR,@DSR ;CLEAR THE CSR 
SETPR] #PRIO7 LOCK Ae INTERRUPTS 
CLRB INTMASK T EXPECT ANY Mb pment 
134240 MOV #STP1,aDPC T “*STOP AND IN 
JSR PC,WAI TF WAIT FOR DONE 
023056 MOV #81115! PINTRA, GDDAT sEXPECT PENDING INTR 
JSR PC .FLGCHK i CHECK FLAGS FOR IT. 
134216 MOV #CLFLGS.a@DSR CLEAR THE INTERRUPT. 
023056 MOV #100000, GDDAT 
i PC .FLGCHK :..AND VERIFY IT. 
026106 MOV #*0177600! IOKCKIN, INTMASK ; PRIME FLAG, NO INTR. EXPECTED. 
SETPRI #PRIOO ALLOW INTERRUPTS 
13$: NOP -AND SEE IF WE GET INTR 
NOP 
NOP 
NOP 
JSR PC WAI TF 
TSTR INTFLAG :DID WE ay AN INTERRUPT? 
BM! 14$ OK IF NO INTR 
MOV #13$,R1 40 E CPU PC 
HRDERR USI,INTERR SAY UNEXPECTED INTR 
14%: JSR PC, IT IRCNF + CHECK INTERNALS FOR INIT‘ED STATE 
ENDSEG : €€E ECE EEK EEE KEK KEKE KKK EK END SEGMENT. 
LOOPTO 18% ; REPEAT ‘TIL LOOPER EXPIRES. 
JSR PC,LOOP 
BCS 1 $ 
JSR vet TSTEND 
EXIT : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
18$: JMP 188 ; JUMP TO START OF LOOP 
; DISPLAY CODE 
STP1: SYNC +1, STOP] :STOP AND INTERRUPT. 
STP2: SYNC *+1,STO® S AGAIN. ENABLE SHOULD HAVE... 
:..-BEEN SAVED. 
172000 STP3: SYNC +1, SIOFF STOP sENABLE OFF AND STOP (NO INT). 
173000 STP4 SYNC +1,SI0N,STOPN sENABLE ON, STOP WITHOUT INTERRUPT. 
END. TEST 


seeereeenrererersarenerercernerenanaeareranssaaeonerenenensaneaneeaseees 


SEQ 0123 


-——---- 


JVSv11/457) ©© GRAPHIC SYS. 
eoe TEST 18 STOP INTER 


4 10 
a MACRO M1173 29=)4N@B1 17:22 PAGE 69-2 


-@ 
te END TEST 12 

-* 

len eeerereeereeresesseeseeseacenseeseereceresasenesesseererensesesseeees 


SEQ 0124 


(Svtt7y511 = GAAPwIC SYS. 
eee tes? 1% DPy brent INTER p 


” IP? 52 ~ 


ano 


5083 004737 


140076 


3 
F 


YIVIVIVAASS 
ERSFRNSIGER IS 


CO0OT2 133 
777 ~G00015 1335730 
737 177606 026 
160000 7 


oo oo 


RRRFRERREE 
4838 
33 
8 


oO 

38 
ye 
=n 


047140 


023056 
0235056 
133622 


ee 
elk 
ow 
ee 
$z 
Bn 
mr 
NN 


Ws Z2 
RF 

PE ReNeE 
PRPOCE 
Sf 


rer 
> 
O@n 
RRP 
Sat 
x 
eg° 
Pon x 
Aaa Jas 
eegec 
x 
¥ 


133562 
1335S¢ 


TAG MA°RO TITS) Deel ANOBT 17:22 PAGE 1. 
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:* BEGIN TEST 16 = 


DPU TIME“OUT INTERRUPT 


: (ITERATION COUNT = 100.) 


ee Be Be Oe we 


O'wS?: 


INTSET 


agReas 


3 488 
b 


a PSE 


S$: my 


SEND THE DISPLAY TO A NON“EMISTENT MEMORY LOCATION 
AND VERIFY "HAT HE RE 
arpea? 700 TIMES AFTER QuICK PASS 


SPONDS yg A, A TIME-OUT INTERRUPT. 


PC.1S'SO s TITLE. 
PC ,DPRESET © 3; DO SOFT INIT. 


«OOOO EEE EEE EERE CEE KEE BEGIN ent 
@sé TRA 140000, aDSR zSET RELOC TO 600000, THE... 
t..-1/0 PAGE IS REALLY +700000. 


@CLFLGS,aDSR CLEAR THE FLAGS @ PENDING INTERUPTS. 
@O:WAICSR,@DSR =; CLEAR THE ERROR CODE. 


ERR 
#°0177600 : LOKCKIN: IOKERR, INTMASK 3 PRIME FLAG, EXPECT ERR 


@160000.aDPC ss: MCT DISPLAY START... 
RO > ce SMOULD GET TIME-OUT. 
Ys 
INTEL AG : DID WE GET PROPER INTERRUPT? 
2s : ; BR IF VES 
2708.7) S17 DIDN'T, GET ERROR PC... 
NTO. INTERR [NO TIME-OUT INTERRUPT. 
@BITIS!<TeBITTI>!SELCSR,GDDAT SET es cppar é/ ERROR CODE. 
PC CSRCHE [CHECK FOR THE ERFOR ( 

#160000.GDDAT SAY FLAGS SHOULD HAVE “Oo PEND ING INTRS 
PC LFLGC HE >... CHECK FOR 17. 
@O'WRICSR,aDSR :CLEAR ERROR CODE 
GDDAT TEMPECT O°S FOR... 
PC HRC He >. HABASE 
PC. CACHE 3 ++ -CABASE 
Pe | mC “AND AUK 

Z 0 CRORE ERE EE EERE EEE END SEGMENT. 

$s ; REPEAT... 
oe 
5$ z..-TIL LOOPER EXPIRES. 
@SETMRR 0. €@DSR 7 INSURE MAIN-SEG RELOC IS 0... 
@SELDSR @DSA “SELECT REAL DSR 
eD'0,ar0'y z..eAND RESTORE VECTOR. 
PC, TSTEND 


SEQ 0125 


| 
SyttyyStt << GRAPwIC SS, D1aG MAC@D MTTTS: «25-l)ANNBT 17:22 «PAGE 4,19 
eee "EST 7S Dm TIMEOUT INTERRUPT 
a7% (474 END. °ES? 


P SCHOSSSSSSHSSSSSSSSSSSHSSSSHSSSSHSSHHSSSSSSSHHEEEES SHSSSESHSSHSSSSHSSSSSESESSECE 


-@ 
te EMD TEST 14 

-@ 

Pe eeeeneeecerocececoscesesesoeseseeseceseeeeoeesoeseseoeeeseneeeeeelees 


SES 0126 


a a” 


K 10 
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eee TEST 15 ERROR C 
47% 
PPCCMA MARE AAERL AHA HAAHAATHAAAAEHAAEAHAHEHEHEHAHERAARHHHAARAHHARA HAE EES 
*« 
s* BEGIN TEST 15 = ERROR CODES 
‘2 
eee ee Ree ERR EER ORR EE TROTTER ARERR EERE TREE REAR ERRATA EERE ERED 
: CITERATION COUNT = 10.) 
4737 
4738 3 
4739 ; GENERATE ALL ERROR CODES NOT TESTED ELSEWHERE IN THE PROGRAM 
47640 : AND POSSIBLE TO GENERATE WITH SOFTWARE. CHECK FOR THE RE TURN 
ores : OF THE APPROPRIATE ERROR CODE. 
4 : 
4743 067332 ERCODS: COMBEG 
047332 004737 027702 JSR PC,TSTGO ; TITLE. 
047336 004737 026074 ser PC ,DPRESET ; DO SOFT INIT. 
4744 047342 1$: 
ree ; TEST MPE = MEMORY PROTECTION (MAIN SEGMENT). 
47647 067342 BGNSEG KKK KKK KEKE KKK KKK KKK KK <<< BEGIN SEGMENT. 
4748 067344 INI TDP 
047344 004737 025402 JSR PC ae ; GO DO SOFT INIT, CHECK THE STATE. 
4749 047350 WIDSRA #170000,M * LIMIT MAIN SEG TO 4k 
047350 012777 170015 133456 MOV #1700006"C17! SE THPM, aDSR 
4750 047356 INTSET ERR 
047356 012737 177604 026106 MOV my ale ae mein’ oe INTMASK ; — FLAG, EXPECT ERR 
4751 047364 DPSTART #ECMPE1 : FORCE MPE ON MAIN SEGMENT 
047364 012777 052264 133440 MOV #ECMPE 1, aDPC ; START THE DPU. 
047372 004737 027454 JSR PC, WAITF : WAIT FOR DISPLAY STOP. 
4752 047376 105737 026107 TSTB INTFLAG ; DID WE GET THE EXPECTED ERROR INTERRUPT? 
4753 047402 001412 BEQ 10$ ; BR IF YES. 
4754 047404 012701 047372 MOV #.-12,R1 : NO. SO GET PC FOR ERROR REPORT, 
4755 047410 HRDERR NTO,INTERR ; .-. AND REPORT THE PROBLEM. 
4756 047430 10$: 
4757 047430 012701 114003 MOV AMPE ,R1 
4758 047434 RDDSRA_ CSR,R2 
047434 012777 000003 133372 MOV #SELCSR,@DSR ; READ CSR INTO R2 . 
047442 017702 133366 MOV aDSR,R2 
4759 047446 IFERROR ECE,CSRER 
047446 020102 CMP R1,R2 ; OK? 
047450 001410 8EQ 64$ ; YES. 
047452 HRDERR ECE,CSRER, : NO. 
047472 64$: 
ri 047472 ENDSEG p KKKK KKK KK EK KKK KKK KKK KKK << END SEGMENT. 
rE ; TEST MPE = MEMORY PROTECTION (AUXILIARY SEGMENT). 
4764 047474 BGNSEG p KKRKK KKK KKK KKK KKK KKK KKK KKK BEGIN SEGMENT. 
4765 047476 INITDP 
047476 004737 025402 JSR PC hey ; GO DO SOFT INIT, CHECK THE STATE. 
4766 047502 WIDSRA #170000,XPM 
47 012777. 170017 133324 MOV +1 700008"C17! SETXPM, aDSR 


768 047516 DPSTART #ECMPE2 FORCE MPE ON AUXILIARY SEGMENT. 


4767 047810 INTSET ERR 
" 047510 012737 177604 026106 MOV #*0177400! — faving INTMASK : PRIME FLAG, EXPECT ERR 


SEQ 0127 


oe ee 


le GRAPHIC AT es MACRO M1113 29=JAN-81 17:22 PAGE bf 


eee TEST ERROR C SEQ 0128 
04751 012777 052270 135306 MOV #ECMPE2 ,aDPC ; START THE DPU. 
047524 004737 027454 JSR PC ,WAITF ; WAIT FOR DISPLAY STOP. 
4769 047530 105737 026107 TSTB INTFLAG : DID WE GET THE EXPECTED ERROR INTERRUPT? 
4770 047534 001412 BEQ 11$ ; BR IF YES. 
771 0475 012701 047524 MOV #.-12,R1 : NO. SO GET PC FOR ERROR REPORT, 
4772 047542 HRDERR NTO,INTERR : ...- AND REPORT THE PROBLEM. 
4773 0475 11$: 
4774 047562 012701 114003 MOV #MPE .R1 
4775 047566 RDDSRA CSR,R2 
0475 012777 000003 133240 MOV #SELCSR,ADSR ; READ CSR INTO R2 . 
047574 017702 133234 MOV aDSR,R2 
4776 047600 IFERROR ECE,CSRER 
047600 020102 CMP R1,R2 ; OK? 
047602 001410 BEQ 65$ s VES. 
047604 HRDERR ECE.CSRER, ; NO. 
047624 65$: 
4777 047624 ENDSEG g KKK KKK KEKE KKK KKK KK KKK KKK << END SEGMENT. 
4778 047626 005737 002502 TST DPUMOD ; ARE WE IN DPU-MODE ONL Y? 
4779 047632 001132 BNE 3$ ; BR IF YES -=- CAN'T DO READBACK 
ph : TO CHECK FOR WRITE-PROTECT VIOLATIONS. 
rik 3 : TEST MPE - MEMCRY WRITE PROTECTION (MAIN SEGMENT). 
4784 047634 BGNSEG 
4785 047636 INI TDP 
047636 004737 025402 JSR PC ,DPINIT : GO DO SOFT INIT. CHECK THE STATE. 
4786 047642 WTDSRA #BITS, MPM : SET MAIN-SEG WRITE PROTECT 
047642 012777 001015 133164 V #81T98°C17!SETMPM, aDSR 
4787 047650 INTSET ERR 
0476 012737 177604 026106 V en INTMASK ; PRIME FLAG, EXPECT ERR 
4788 047656 DPSTART #ECMPE3 ; FORCE MPE BY TRYING DMA READBACK 
047656 012777 052302 133146 a yeate aDPC ; START THE DPU. 
047 004737 027454 JSR PC, WAIT : WAIT FOR DISPLAY STOP. 
4789 047670 105737 026107 TSTB TATFLAG. ; DID WE GET THE EXPECTED ERROR INTERRUPT? 
4790 047674 001412 BEQ 12$ ; BR IF YES 
4791 047676 012701 047664 MOV #.-12,R : NO. SO GET PC FOR ERROR REPORT, 
4792 047702 HRDERR NTO, SRTERR : ..- AND REPORT THE PROBLEM. 
4793 047722 12$: 
4 047722 012701 114003 MOV #MPE ,R1 ; SET EXPECTED ERROR CODE ‘™PE'' 
795 047726 RDDSRA CSR,R2 
047726 912777 000003 133160 MOV ASELCSR,@DSR ; READ CSR INTO R2 . 
047734 017702 133074 MOV aDSR,R2 
4796 047740 IFERROR ECE,CSRER 
047740 020102 CMP R1,R2 ; OK? 
047742 001410 BEQ 66$ 2 VES. 
047744 HRDERR ECE,CSRER, : NO. 
0477 66$: 
4797 047764 ENDSEG 
4798 
4799 
rr : TEST MPE - MEMORY WRITE PROTECTION (AUXILIARY SEGMENT). 
4 047766 BGNSEG 
4803 047770 INITDP 
0477 004737 025402 JSR PC, aye} : GO DO SOFT INIT, CHECK THE STATE. 
4804 047774 WTDSRA #BIT9 : SET AUX-SEG WRITE PROTECT 
047774 012777 001017 133032 MOV wet TOb-C17!SETXPH, aDSR 


a > 
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eee TEST 15 ERROR CODES ; 

4805 050002 INTSET 
050002 012737 177604 026106 MOV 
4806 050010 DPSTART 
050010 012777 052316 133014 MOV 
050016 004737 027454 JSR 

4807 050022 105737 026107 TSTB 

4808 050026 001412 BEQ 
0500 012701 050016 MOV 

4810 050034 HRDERR 

4811 050054 13$: 

4812 050054 012701 114003 MOV 
05 RDDSRA 
050060 012777 000003 132746 MOV 

50066 017702 132742 MOV 

4814 050072 IF ERROR 
050072 020102 CMP 
050074 001410 BEQ 
050076 HRDERR 

50116 67$: 

4815 C50116 ENDSEG 

4816 

4817 

4818 050120 3$: 

4819 ; TEST RSVDOP - 

4820 

4821 050120 BGNSEG 

4822 050122 INI TDP 
050122 004737 025402 SR 

4823 050126 INTSET 
050126 012737 177604 026106 Vv 

4824 050134 DPSTART 
050134 012777 052332 132670 V 
050142 004737 027454 SR 

4825 050146 105737 026107 TSTB 

4826 050152 001412 BEQ 

4827 050154 012701 050142 MOV 

4828 050160 HRDERR 

4829 050200 14$: 

4830 050200 012701 124003 Vv 

4831 050204 RDDSRA 
050204 012777 000003 132622 MOV 
050212 017702 132616 MOV 

4832 050216 IF ERROR 
050216 020102 CMP 
050220 001410 BEQ 
050222 HRDERR 
050242 68$: 

4833 050242 ENDSEG 

4834 

4835 ; TEST RSVDOP - 

4836 

4837 050244 BGNSEG 

4838 050246 INI TDP 
050246 004737 025402 JSR 

4839 050252 012777 000113 132554 V 

4840 050260 INTSET 
050260 012737 177604 026106 V 


SEQ 0129 

FRR 
Se en cae INTMASK ; PRIME FLAG, EXPECT ERR 
#ECMPES ; FORCE MPE BY TRYING DMA READBACK 

#ECMPES ,aDPC : START THE oor 
PC ,WAI TF : WAIT FOR DISPLAY STOP. 

INTFLAG ; DID WE GET THE AE MPECTED ERROR INTERRUPT? 

Ng ; BR IF YES. 

-12,R1 : NO. SO GET PC FOR ERROR REPORT, 

NOL INTERR ; ~~ AND REPORT THE PROBLEM. 
oon ie : SET EXPECTED ERROR CODE ‘™MPE"’ 
#SELCSR,@DSR ; READ CSR INTO R2 . 

aDSR,R 

ECE,CSRER 

R1,R2 3; OK? 
67$ s VES. 

ECE,CSRER, ; NO. 


RESERVED OPCODE (ILLEGAL INSTRUCTION. 
KKK KK KKK KEKE KEK KKK KK KKK KK BEGIN SEGMENT. 
ooh -DPINIT ; GO DO SOFT INIT, CHECK THE STATE. 
A LAD pa eater ty ye INTMASK PRIME FLAG, EXPECT ERR 


#ECRSV1 :s TART one ON ILLEGAL INSTRUCTION. 
#ECRSV1,@DPC START THE 


PC ,WAITF ; WAIT FOR DISPLAY STOP. 

fia ; 4S = THE EXPECTED ERROR INTERRUPT? 
-12,R1 : nae SO GET PC FOR ERROR REPORT, 

NiO, INTERR : . AND REPORT THE PROBLEM. 

#RSVDOP ,R1 

CSR,R 

#SELCSR,@DSR ; READ CSR INTO R2 . 

aDSR,R2 

ECE,CSRER 

R1,R2 : OK? 

68$ “> 2 Ves. 

ECE,CSRER, NO. 


b KKKK KK KKK KKK KKK KK KKK KKK << END SEGMENT. 
ODD Y COORDINATE (BIT 0 SET) 
8 KKK K KERR KEKE KK KKK KKK KKK BEGIN SEGMENT. 


PC,DPINIT GO DO SOFT INIT, CHECK THE STATE. 


#ENECHK 'WRTCSR. absR sENABLE RSVD-OP ERROR CHECKING. 
; PRIME FLAG, EXPECT ERR 


ERR 
#*0177400! IOKCKIN! JOKERR, INTMASK 





ac 


ee 


N 10 
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eee TEST 15 
4841 050266 
266 


4848 050336 
050336 


050344 
4849 050350 
050350 


0 
4850 050374 
4851 
4852 
4853 
4854 050376 
4855 050400 
050400 
4856 050404 
4857 050412 
050412 
4858 050420 
050420 


050426 
4859 050432 
4860 050436 


050526 
4867 050526 
4868 
4869 


4870 
4871 050530 
4872 eek 


050532 
4873 pepe se 
4874 050544 

050544 


050552 
4875 050556 


ERROR C 


004737 
012777 


012737 
012777 
004737 
105737 
001412 
012701 
012701 


012777 
017702 


020102 
001410 


004737 
012737 
012777 


004737 
105737 


052336 
027454 
026107 


050274 


124103 


000003 
132464 


025402 
000113 


177604 
052346 
027454 
026167 


050426 


124103 


000003 
132332 


025402 
177604 
052356 


027454 
026107 


el MECRSV2 
#EC 


;START DPU ON ODD Y VALUE. 
THE DPU. 


132536 CRSV2,aDPC ; START 
"eR PC ,WAITF : WAIT FOR DISPLAY STOP. 
TSTB INTFLAG ; DID WE GET THE EXPECTED ERROR INTERRUPT? 
BEQ ; BR IF YES. 
V -12,R : NO. SO GET PC FOR ERROR REPORT, 
_ HRDERR NiO. SATERR 3; «.. AND REPORT THE PROBLEM. 
"MOV #RSVDOP: ENECHK,R1 
RDDSRA CSA&,R 
132470 Vv #SELCSR, arse ; READ CSR INTO R2 . 
MOV aDSR,R2 
IFERROR ECE, CSRER 
CMP R1,R2 ; ? 
BEQ 69  VESe 
oe HRDERR ECE.CSRER, ; NO. 
: ENDSEG b KKK KKK KKK KKK KK KKK KKK KKK << END SEGMENT. 
: TEST RSVDOP - ODD X VALUE (BIT 0 SET) 
ap by KKKK KKK KK KKK KKK KKK KKK KK <<< BEGIN SEGMENT. 
N 
JSR PC,DPINIT : GO DO SOFT INIT, CHECK THE STATE. 
132422 i aha cipaeat com -@DSR sENABLE RSVD-OP ERROR CHECKING. 
026106 MOV ee or INTMASK ; PRIME FLAG, EXPECT ERR 
DPSTART #ECRSV3 :S TART DPU ON ODD X VALUE. 
132404 MOV #ECRSV3,aDPC : START THE DPU. 
JSR PC, WAITF : WAIT FOR DISPLAY STO 
TSTB INTFLAG : DID WE GET THE EXPECTED ERROR INTERRUPT? 
BEQ hago ; BR IF YES 
V #.-12,R ; NO. SO GET PC FOR ERROR REPORT, 
a HRDERR NTO, S oRERR ; .-- AND REPORT THE PROBLEM. 
"mov #RSVDOP! ENECHK,R1 
RDDSRA_ CSR,R2 
132336 MOV #SELCSR,@DSR ; READ CSR INTO R2 . 
MOV aDSR,R2 
IFERROR ECE, CSRER 
CMP R1, : OK? 
BEQ 70$ : YES. 
om HRDERR ECE,CSRER, NO. 
: ENDSEG yp KKKK KKK KKK KKK KK KK KKK KKK << END SEGMENT. 
: TEST SEQERR - SEQUENCE ERROR (DJMS FROM SUBROUTINE) 
BGNSEG b KKKK KKK KK KKK KK KKK KKK KKK K< BEGIN SEGMENT. 
N 
<a ee : GO DO SOFT INIT, CHECK THE STATE. 
026106 MOV Se ee: SRE: INTMASK : PRIME FLAG, EXPECT ERR 
DPSTART #ECSEQ1 
132260 MOV + Fra ih store : START THE DPU. 
JSR PC WAIT WAIT FOR DISPLAY STOP. 
TSiB AfELAG. : BID WE GET THE EXPECTED ERROR INTERRUPT? 


SEQ 0130 


Serre ye pees 
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eee TEST 1 ERROR CODES 
4876 050562 001412 BEQ ve ; BR IF YES 
| 4877 050564 012701 050552 mov =12,R1 NO. SO GET PC FOR ERROR REPORT, 

4878 050570 HRDERR NiO, INTERR : «.- AND REPORT THE PROBLEM. 
4879 050610 17$: 
4880 050610 012701 120003 MOV ASEQERR,R1 
4881 050614 RDDSRA_ CSR,R2 

050614 012777 000003 132212 MOV #SELCSR,@DSR ; READ CSR INTO R2 . 

950622 017702 132206 MOV aDSR,R2 
4882 050626 IFERROR ECE,CSRER 

050626 020102 CMP R1,R2 3; OK? 

050630 001410 BEQ 71$ 7 YES. 

050632 HRDERR ECE,CSRER, NO. 

050652 71$: 
<08s 050652 ENDSEG p KKKKK KKK KKK KKK KKK KKK KK END SEGMENT. 
4 
rr 4 : TEST SEQERR - SEQUENCE ERROR (CHARACTER DATA IN CHAR. SUBROUTINE) 
4887 050654 BGNSEG b KKK KKK KK EK KKK KKK KK KKK KK< BEGIN SEGMENT. 
4888 050656 INITDP 

050656 004737 025402 JSR PC,DPINIT : GO DO SOFT INIT, CHECK THE STATE. 
4889 050662 INTSET ERR 

05 012737 177604 026106 V #°0177400! IOKCKIN! IOKERR, INTMASK ; PRIME FLAG, EXPECT ERR 
4890 050670 DPSTART MECSEQ2 

050670 012777 052374 132134 MOV #ECSEQ2,aDPC ; START THE DPU 

050676 004737 027454 JSR PC, ITF ; WAIT FOR DISPLAY STOP. 
4891 050702 105737 026107 TSTB INTFLAG : DID WE GET THE EXPECTED ERROR INTERRUPT? 
4892 050706 001412 BEQ _ ; BR IF YES 
4893 050710 012701 050676 MOV -12,R1 ; NO. SO GET PC FOR ERROR REPORT, 
4894 050714 HRDERR NiO, INTERR : ... AND REPORT THE PROBLEM. 
4895 050734 18$: 
4896 050734 012701 120003 MOV gece. R1 
4897 050740 RDDSRA_ CSR,R2 

050740 012777 000003 132066 MOV ASELCSR, aDSR ; READ CSR INTO R2 . 

050746 017702 132062 MOV aDSR,R2 
4898 050752 IFERROR ECE. CSRER 

050752 020102 CMP , 3; OK? 

050754 001410 BEQ oar =e VES 

050756 HRDERR ECE,CSRER, ; NO. 

050776 72$: 
yr 444 050776 ENDSEG p KKK KKK KKK KKK KKK KKK KKK KKK << END SEGMENT. 
4901 
ype ; TEST SEQERR - SEQUENCE ERROR (DJMS iN CHARACTER SUBROUTINE) 
4904 051000 BGNSEG b KKK KKK KKK KKK KKK KKK KKK K<< BEGIN SEGMENT. 
4905 051002 INI TDP 

051 004737 025402 SR PC,DPINIT : GO DO SOFT INIT, CHECK THE STATE. 
4906 051006 INTSET ERR 

051 012737 177604 026106 V #*0177400! IOKCKIN! IOKERR, INTMASK : PRIME FLAG, EXPECT ERR 
4907 051014 DPSTART #ECSEQ3 

05101 012777 052442 132010 MOV weCSEOS aDPC ; START THE DPU. 

0510 737 027454 JSR PC,WAITF : WAIT FOR DISPLAY STOP. 
4908 051026 105737 026107 TSTB INTFLAG : DID WE GET THE EXPECTED ERROR INTERRUPT? 
4909 051032 001412 BEQ 19$ ; BR IF YES. 
4910 051034 012701 051022 MOV #.-12,R1 ; NO. SO GET PC FOR ERROR REPORT, 
4911 051040 HRDERR NTO,INTERR : ... AND REPORT THE PROBLEM. 


4912 051060 


r--- 


19$: 


SEQ 0131 


———_-- 


see TEST 


4913 051060 
4914 051064 
051064 





5 
oO 
= 
N “ 
oo0oo 
uw 
— 
oO 
~“ 
oO 


4920 
4921 051124 
4922 051126 


AVS SaaR 


05 
4933 051246 
4934 
4935 
4936 
4937 
4938 051250 
4939 051252 
051252 
4940 051256 
051256 
4941 051264 
051264 
051272 


4942 051276 
4943 051302 


4948 051334 
051334 


ERROR 
012701 


012777 
017702 


020102 
001410 


004737 
012737 
012777 


012701 


012701 


012777 
017702 


020102 
001410 


004737 
012737 
012777 

737 
105737 
001412 
012701 
012701 
012777 


120003 


000003 
131736 


025402 
177604 
052474 
027454 
026107 


051146 


120003 


000003 
131612 


025402 
177604 
052520 
027454 
026107 


051272 


120003 
000003 


131742 


026106 


131664 


131616 


026106 


131540 


131472 


HRDERR 
ENDSEG 


73$: 


; TEST SEQERR - 


208: 


MOV 
IFERROR 
CMP 
BEQ 
HRDERR 


ENDSEG 


74$: 


; TEST SEQERR - 


MOV 
HRDERR 
21$: 


MOV 
RDDSRA 
MOV 
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eeane RI 
#SECCSR,@DSR 
aDSR,R2 

BSE CSRER 


o 
3 


; READ CSR INTO R2 . 


R1,R2 3 OK? 
73$ : YES. 
ECE,CSRER, ; NO. 


p KKK KEK KEKE EK EEK KKK KKK KKK END SEGMENT. 


SEQUENCE ERROR (BIT-MAP-0 IN SUBROUTINE) 
p KKK KKK KEK KKK KKK EK KKK KKK KK BEGIN SEGMENT. 


PC .DPINIT : GO DO SOFT INIT, CHECK THE STATE. 
7 ag eco ce _ INTMASK ; PRIME FLAG, EXPECT ERR 
WECSEQ4,aDPC ; START THE DPU. 
PC, WAITF * WAIT FOR DISPLAY STOP. 
INTFLAG : DID WE GET THE EXPECTED ERROR INTERRUPT? 
#.-12,R1 NO. SO GET PC FOR ERROR REPORT, 
NTO, INTERR : ... AND REPORT THE PROBLEM. 
#SEQERR,R1 
CSR,R2 
#SELCSR.@DSR —«;:-READ CSR INTO R2 . 
aDSR,R2 
ECE,CSRER 
R1,R2 3; OK? 
74$ « YES. 
ECE,CSRER, : NO. 


KKK KKK KKK KKK KKK KKK KKK KKK END SEGMENT. 


SEQUENCE ERROR (BIT-MAP=-1 IN SUBROUTINE) 
b KKKK KKK KKK KKK KKK KKK KKK <<< BEGIN SEGMENT. 


PC -DPINIT : GO DO SOFT INIT, CHECK THE STATE. 

A elena, sleet : PRIME FLAG, EXPECT ERR 
#ECSEQS,aDPC ; ~START THE DPU. 

PC, WAITF * WAIT FOR DISPLAY STO 

INTFLAG : DID WE GET THE EXBECTED ERROR INTERRUPT? 
#.-12,R1 : NO. SO GET PC FOR ERROR REPORT, 

NTO, INTERR + ... AND REPORT THE PROBLEM. 

#SEQERR,R1 

CSR,R2 


#SELCSR.@DSR ; READ CSR INTO R2 . 


SEQ 0132 


f 
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| eee TEST 15 ERROR CODES SEQ 0133 
051342 017702 131466 MOV aDSR,R2 
4949 051346 IFERROR ECE,CSRER 
051346 020102 CMP R1,R2 3; OK? 
051350 001410 BEQ 75$ : YES. 
051352 HRDERR ECE,CSRER, : NO. 
051372 75$: 
apt 051372 ENDSEG PKK KK KKK KEE KKK KK KKK KKK END SEGMENT. 
4952 
yeh 3; TEST SEQERR - SEQUENCE ERROR (DMA READBACK FROM SUBROUTINE) 
4955 051374 BGNSEG b KKKK KEKE KKK KKK KKK KKK KKK BEGIN SEGMENT. 
4956 051376 INITDP 
051376 004737 025402 R PC .DPINIT : GO DO SOFT INIT, CHECK THE STATE. 
4957 051402 INTSET ERR 
051402 012737 177604 026106 MOV #*0177400! IOKCKIN! IOKERR, INTMASK ; PRIME FLAG, EXPECT ERR 
4958 051410 DPSTART #ECSEQ6 
051410 012777 052542 131414 MOV ety aDPC ; START THE DPU. 
051416 004737 027454 JSR PC, WAITF ; WAIT FOR DISPLAY STOP 
4959 051422 105737 026107 TSTB INTFLAG : DID WE GET THE EXPECTED ERROR INTERRUPT? 
4960 051426 001412 BEQ 22$ ; BR IF YES. 
4961 051430 012701 051416 MOV #.-12,R1 : NO. SO GET PC FOR ERROR REPORT, 
4962 051434 HRDERR NTO,INTERR : .-- AND REPORT THE PROBLEM. 
4963 051454 223: 
4964 051454 012701 120003 MOV ASEQERR,R1 
4965 051460 RDDSRA_ CSR,R2 
051460 012777 000003 131346 MOV ASELCSR,@DSR ; READ CSR INTO R2 . 
051466 017702 131342 MOV aDSR,R2 
4966 051472 IFERROR ECE,CSRER 
051472 020102 CMP R1,R2 3; OK? 
051474 001410 BEQ 76$ ; YES. 
051476 HRDERR ECE,CSRER, 3 NO. 
051516 76$: 
rial 051516 ENDSEG b KKKK KK KKK KEK KK KK KKK KKK END SEGMENT. 
4969 
7 : TEST SEQERR - SEQUENCE ERROR (ILLEGAL DMA READBACK RESTART) 
4972 051520 BGNSEG pb KKK KK KKK KKK KK KKK KKK KKK <<< BEGIN SEGMENT. 
4973 051522 INI TDP 
051522 004737 025402 JSR PC,DPINIT ; GO DO SOFT INIT, CHECK THE STATE. 
4974 051526 INTSET ERR 
526 012737 177604 026106 MOV #°0177400! IOKCKIN! IOKERR, INTMASK ; PRIME FLAG, EXPECT ERR 
4975 051534 DPSTART #ECSEQ7 
1534 012777 052572 131270 MOV #eCSEQ?. aDPC ; START THE DPU. 
051542 004737 027454 JSR PC ,WAITF ; WAIT FOR DISPLAY STOP. 
4976 051546 105737 026107 TSTB INTFLAG ; DID WE GET THE EXPECTED ERROR INTERRUPT? 
4977 051552 001412 BEQ 23$ ; BR IF YES. 
4978 051554 012701 051542 MOV #.-12,R1 : NO. SO GET PC FOR ERROR REPORT, 
4979 051560 HRDERR' NTO, INTERR : ...- AND REPORT THE PROBLEM. 
4980 051600 23$: 
4981 051600 012701 120003 MOV #SEQERR,R1 
4982 051604 RDDSRA_ CSR,R2 
051604 012777 000003 131222 MOV #SELCSR,@DSR ; READ CSR INTO R2 . 
051612 017702 131216 MOV aDSR,R2 
4983 051616 IFERROR ECE,CSRER 
051616 020102 CMP R1,R2 : OK? 


[pow ee 


E 11 
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poco 


wee TEST 15 ERROR CODES SEQ 0134 
051620 001410 BEQ 77$ : YES. 
051622 HRDERR ECE,CSRER, ; NO. 
051642 773%: 
rhs a4 051642 ENDSEG f KKK KEKE EKER KKK KKK END SEGMENT. 
49 
rhs ; TEST SYNCTO = SYNC TIMEOUT FROM IMAGE MEMORY. 
| 4988 051644 BGNSEG gy KKKK KKK KEKE EKER KKK KKK BEGIN SEGMENT. 
4989 051646 INI TDP 
| 051646 004737 025402 JSR PC,DPINIT ; GO DO SOFT INIT, CHECK THE STATE. 
4990 051652 INTSET ERR 
051652 012737 177604 026106 MOV ee INTMASK ; PRIME FLAG, EXPECT ERR 
4991 051660 DPSTART #ECSTO 
051660 012777 052620 131144 MOV #ECSTO, ore ; START THE DPU. 
051666 737 027454 JSR PC ,WAITF ; WAIT FOR DISPLAY STOP. 
4992 051672 105737 026107 TSTB INTFLAG ; DID WE GET THE EXPECTED ERROR INTERRUPT? 
4993 051676 001412 BEQ 248 ; BR IF YES. 
4 051 012701 051666 MOV #.-12,R1 ; NO. SO GET PC FOR ERROR REPORT, 
4995 051704 HRDERR NIO,INTERR : ... AND REPORT THE PROBLEM. 
4996 051724 248: 
4997 051724 012701 140003 MOV ASYNCTO,R1 
4998 051730 RDDSRA_ CSR,R2 
051730 012777 000003 131076 MOV MSELCSR,@DSR ; READ CSR INTO R2 . 
051 017702 131072 MOV @aDSR,R2 
4999 051742 IFERROR ECE,CSRER 
051742 020102 CMP R1,R2 3: OK? 
051744 001410 BEQ 7 ; YES. 
051746 HRDERR ECE,CSRER, ; NO. 
051766 78$: 
aoe 051766 ENDSEG fp MRK KKK KEKE EEK KEK KK END SEGMENT. 
sone ; TEST DRDYTO = DATA READY TIMEOUT ON CURSOR READBACK 
5004 051770 BGNSEG 
5005 051772 INITDP 
051772 004737 025402 JSR PC,DPINIT ; GO DO SOFT INIT, CHECK THE STATE. 
5006 051776 105037 026106 CLRB INTMASK 
5007 052002 012777 040000 131026 MOV AGTJISSW,a@DXR ; SAY READ PENDING COORDS (BUT THERE ARE NONE) 
5008 052010 004737 02745 JSR PC,WA ITF ; WAIT FOR READY 
5009 052014 012701 150003 MOV ADRDYTO,R1 : SET EXPECTED ERROR CODE ‘DRDYTO"’ INTO R1 
5010 052020 RDDSRA_ CSR,R2 ; GET THE CSR 
052020 012777 000003 131006 MOV ASELCSR,@DSR : READ CSR INTO R2 . 
052026 017702 131002 MOY @DSR,R2 
5011 052032 IFERROR ECE,CSRER 
052032 020102 CMP R1,R2 3; OK? 
2034 001410 BEQ 79$ : YES. 
Rogvre HRDERR- ECE,CSRER, "4 
052056 79$: 
ane 052056 ENDSEG 
anne : TEST DAVTO = DATA AVAILABLE TIMEOUT PIXEL READBACK. 
5016 052060 BGNSEG b KKK KKK KK EKER KKK KKK KK KKK << << BEGIN SEGMENT. 
5017 052062 INI TDP 
052062 004737 025402 JSR PC,DPINIT : GO DO SOFT INIT, CHECK THE STATE. 
5018 052066 012777 040000 130744 MOV #40000, aDYR ; PROTECT ALL MEMORYS. 
5019 052074 004737 027454 JSR PC, WAI TF : 


< 


f----- = 


eee TEST 
5020 05 
5021 


w 

oO 

Nm 

nN 

Ww 
NMonronrorere 
—} ad etd td 
mv 
RSVKS 


052244 
052246 


052252 
36 052256 


0 
5041 052262 


5046 052264 
5047 052266 


504° 052270 


3 
5054 052302 
5055 052304 
ts | 052314 


505 

5058 052316 
5059 052320 
5060 052330 
5061 

5062 052332 
5063 052334 


ERROR CODES 


012777 
004737 
012777 
004737 
012777 
004737 
012777 
004737 
103410 
012701 


012777 
017702 


020102 
001410 


004737 
103401 
000402 
000137 


004737 


000002 


164000 
173000 


173000 


162000 
000001 
173000 


162000 
000001 
173000 


161777 
173000 


000000 
027454 
144003 


000003 
130624 


027646 


047342 
030072 


052277 


000001 


000001 


130732 
130720 
130706 
130672 


130630 


000001 


000001 


2$: 


80$: 


81$: 
82$: 


* INTERUPT SERVICE FOR THIS TEST. 
ECISVC: 


> DISPLAY FILES. 
ECMPE1: 


ECMPE2: 


1$: 


ECMPES: 


ECMPE4: 


ECRSV1: 


MO 
IFERROR 
CMP 
BEQ 
HRDERR 
ENDSEG 
COMEND 
J 


RTI 


DNOP 
STOPN 


F 11 
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#40400, aDYR 
WAITF 


PRi3H 
ADAVTO,R1 
CSR,R2 

0 eae 


@DSR,R 
ECE,CSRER 
R1,R2 


80$ 
ECE,CSRER, 


Be Be Se Fe Be Be Be Be Be Be 


° 


g VES. 
NO 


; TRY PIXEL READ. 

; BRANCH IF UNSUCCESSFUL. 
; PIXEL READBACK HUNG UP. 
; READ CSR INTO R2 . 


; OK? 


p KKK KE KEE KEKE EK KKK KKK KK END SEGMENT. 


PC, TSTEND 
TST 


; PRINT ERROR SUMMARY, 


REPEAT ‘TIL LOOPER EXPIRES. 


IF REQ'D. 


- EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


; RETURN FROM INTERUPT. 


DJMS , 1$! AUXSEG 
STOPN 


IMREAD 


1,1,1,160000 
STOPN 


IMREAD 


1,1,1,160000! AUXSEG 
STOPN 


161777 
STOPN 


; MPE - MEMORY ed ERROR. 
SEGMENT 


--- ON MAIN 


; CALL AUXILIARY SEGMENT 
;SHOULD GET MPE ERROR 


s TRY DMA READBACK 


-TO WRITE PROTECTED MAIN SEG. 


e TRY DMA READBA 


CK 
TO WRITE~PROTECTED AUX SEG. 


; RSVDOP - RESERVED OPCODE. OPERATION. 


SEQ 0135 


ec 


eee TEST 15 


5064 
5065 052336 
5066 052344 


5067 
5068 952346 
5069 052354 
5070 


5071 052356 
é 36 
5074 052370 
5075 052372 
5076 

5077 052374 


5078 052402 
5079 052406 


sie 052440 
5087 052442 


5095 052472 


96 
5097 052474 
5098 052476 


5103 052516 
052520 


052540 
052542 


052566 
052570 


ERROR CODES 


170140 
114000 
160001 
173000 
134000 
052514 
173000 
114000 


000000 
000001 
052364 
052370 
000000 
052414 
0C0000 
000000 
052462 
052470 
000000 
052512 


000000 
052534 


000000 
052556 


000001 


060000 


000000 


000000 


000000 


000000 


000000 


000000 
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0 
0,0,0,0.0.0.0,0 
DPOP 


ECRSV2: APNT,0O,1 

STOPN 
ECRSV3: APNT,1,0 

STOPN 
ECSEQ1: DJMS,1$ 

STOPN 
1$: DJMS,, 2$ 
2s: STOPN 

STOPN 
ECSEQ2: APNT,0,0 

SETCB,2$ 

CHAR! ALL 
1$: 0 

STOPN 
2$: 

STOPN 
ECSEQ3: APNT,0,0 

SETCB,2$ 

CHAR! ALL 
1$: 0 

STOPN 
23: DJMS , 3$ 

STOPN 
3$: STOPN 

STOPN 
ECSEQ4: CLRMEM 

APNT,0, 

DJMS,1$ 

STOPN 
1$: BM0S 
2$: 2$ 

STOPN 
ECSEQS: APNT,0,0 

DJMS,1$ 

STOPN 
1$: BM14 
23: 2$ 

STOPN 
ECSEQ6: APNT,0,0 

DUMS,1$ 

TOPN 

1$: pres 

1 

1 

ECSQ/7B 

STOPN 


; RSVDOP = ODD Y VALUE. 


; RSVDOP = ODD X VALUE. 


3; SEQERR = SEQUENCE ERROR. 
;DJMS FROM SUBROUTINE. 


; SEQERR. 


;DATA AS 1ST WORD == STILL IN CHAR MODE. 


; SEQERR. 


:DJMS IN CHAR SUBROUTINE. 


: SEQERR. 


; SEQERR. 


; SEQERR. 


;DMA READBACK FROM SUBROUTINE. 


052614 
052620 


DPD DP PVPS SPITS SPST SI AAI 

De ee ee ae ed ed ed wd ed ed 8 ed ed 

WWAWANWAAPOPOPoPeronoferre 
oO 


ERROR CODES 


114000 600000 000000 ECSEQ7: 


ih nash 


040000 000000 


ECSO7B: 
ECSTO: 


RARER AAARERERAEARRERAEEERERAARERAARAAREERARRAEARREARAHARAAAHR HATER ATES 


-* 
. 
-* 


2 
° 


RRAAERAAEAAAAAR AA AER AER ER ERAAAAEAEEARERERARARTERRAAARAATERHHARS SAREE ES 


H 11 
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eee 


APNT,0,0 
“topes 
ECSQ7B 
STOPN 
IMREAD! 101 
STOPN 
-BLKW 2 
PROTEC! CHO 
PROTEC! CH} 
PROTEC! CH2 


PROTEC! CH3 
APNT,1:0,0 
STOPN 


END. TEST 


END TEST 15 


ILLEGAL DMA READBACK RESTART. 


SEQ 0137 


am a ne me a nce er eno ee ee 
rt re 


— 


eee TEST 16 


5140 


PUPP PPV SIA AI 


PMNS 
~_—— 


——— <4 
Ww 
$ 
ah 
F 


RAVLS ISVEARANASS 


gee Ge frees 


SSS 
RK RSkeN 


PD IVD DVD IVP LLP LVI POL IV IVA IVI IS 
—_— 


lt le el el ae ee el a el 
BBB SSSSSSSS BS S 
AAA WW 


~—s— 
= 
N 


027646 


022300 
130074 


VSV11/VS11 <= GRAPHIC SYS. DIAG MACRO M1113 29-JAN-81 17:22 PAGE I, 
ADDRESS RELOCATE 


_ al NN it IO aM <P tw a GEN BE 


BEGIN TEST 16 = 


z (ITERATION COUNT = 20.) 


ADDRESS RELOCATE 


 aneceeeeeseseseeoeseoosnesoeeeeeosnessaqnnesnoosecesesesoeeseooeseerse 


TEST ALL COMBINATIONS OF DPC AND RELOCATE FACTOR 
WHERE DPC + REL = RELTI, A 
; TEST RELIES OF THE FACT THAT (DPC + REL) > 18 BITS WIL! 


LOCATION WITHIN THE PROGRAM 


WRAP AROUND IN THE FINAL DPC. 

; REPEAT 20 TIMES AFTER QUICK PASS. 

RELIST: COMBEG 
JSR PC, TSTGO zs FILE. 
JSR PC ,DPRESET ; DO SOFT INIT. 
MOV #20$,EXTA : SET ERROR EXTENSION ADDRESS. 
MOV ak ee aDSR 
MOV R3 
B! Pree tes R3 
BIS #STOP,R3 :...AND STATUS. 

5$: MOV MRELT1,RS sSET INITIAL DPC 
MOV MRELT14*2,R2 SET INITIAL EXPECTED DPC 
MOV @SETMRR!0,R5 SET INITIAL RELOCATION (0) 

1$: BGNSEG p KKK KKK KEKE KEKE KEK KK KKK KKK BEGIN SEGMENT. 
MOV R5.a@DRR sSET 1ST (NEXT) REL VALUE. 
MOV R46 ,aDPC z.--MCT == RELOCATE TO "RELTI" 
JSR PC WAI TF 
CMP C,R ;CHECK DPC = R4 CINITIAL) * 2 
BNE 2¢ 
re aDSR,R3 ;..-AND DSR = STOP*PIXEL DATA. 

23: HRDERR RELF,PCSERR sRELOCATE FAILURE . 

3$: JSR PC ,RELEAS IN CASE HE “‘HUNG’’ SOMEWHERE . 
ENDSEG 3 (EEK EERE EEE KKK EEK KEK KK KKK EK END SEGMENT. 
CMP RS ,@SETMRR! 177760 ;MAX RELOCATION DONE? 
BEG 4$ ALL DONE IF SO. 
ADD MBITS,RS ;RBUMP RELOCATION BY 1 (32 WORDS) 
SUB #100,R2 = REDUCE EXPECTED.. 
SUB #100,R4 3... AND INITIAL DPC BY 1 WORDS) 
BPL 1$ : CONT INUE *TIL WE UNDERFL 
TST R5 :SEE IF ALREADY FORCED wien BITS 
BM! 1$ JUST CONTINUE IF YES 
BIS #140000 ,R5 S FORCE HIGH RELOCATION BITS 
§R 1$ >... THEN CONT INUE 

4$: LoorPTo 5$ ; REPEAT *TIL LOOPER EXPIRES. 
JSR PC LOOP 
BCS 5$ 


SEQ 0138 


| MSVTT/V511 == GRAPWIC SVS. DIAG MACRO M1113 29-JAN-81 17:22 PAGE You} 
eee TES? 16 Te 


i nn ee ee 
ee ee Ne ee ce em ne 
. —- — 


eh 


ADDRESS RELOCA 
grr? 000014 127772 mOV @SETMRR'0,@DSR ; INSURE RR IS 0 
12777 segs 127704 MOV @SELDSR.@DSR teeeAND DSR IS SELECTED 
004737 030072 JSR PC, TSTEND 
ExI? rst z EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


: ON ERROR, SHOW RELOCATE PARAMETERS. 
508: PRINT #RELFX, RG.RS _—_- EXTENSION SHOWS RELOC FACTORS. 
000207 RTs 


DISPLAY FILE FOR RELOCATE TEST 
173000 RELT1: STOPN 
173000 STOPN 
END. TEST 
PTTTTTTTTITITT TLL 


ie END TEST 16 
« peeeeeeneeeneeeneneererereeenenesenseneeeceseneaneereenseeasaaaaeseners 


SEG 0139 


ex 


K_11 
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CHARACTERS 


| eee TEST 17 
| §200 


9 
5220 053240 
053240 
053244 


21 
5222 053250 


30 0 
5231 053312 
5232 053314 
eSez 053320 


5235 053324 
5236 053330 
5237 053334 


5238 
3536 053340 


Ww Ww vw PPA SAA ASIST ASIST 

% N Mr Nm PONGNMONMOMPMONNeNPofPenonoenrnrr 
— oo SS a oo oO Oooo 

MEW OO ONOUEWN 


004737 
004737 


012737 


012721 


017703 
042703 
052703 


013737 
013737 
005001 


013702 
04 
052702 


027702 
026074 


053754 
2 


053750 
100000 


000200 


160000 
053752 


127504 
176000 
172000 


053732 
053732 


053732 
177776 
053760 


(53732 
022200 


053744 
053762 


CVS e Se Be Se Be Se He & Be Be Be Be Be Be Be Be Se Be Se 


** 
;@ BEGIN TEST 17 = 


EERE REE EEA REET A REED 


CHARACTERS 


 etascecdennsedeeneneereeeeenseseeennneeenseesneneaseeernneeeeseneceont 


(ITERATION COUNT = 20.) 


USE SETCB, CHAR, AND DPOP AS A SUBROUTINE CALL AND RETURN. 
USE ALL ASCII CODES (HI AND LO BYTES) ALTERING THE BASE 
ADDRESS SUCH THAT EACH CHAR/BASE COMBINATION YIELDS THE 
SAME SUBROUTINE ADDRESS. 

aay THE DPC AT EACH SUBROUTINE ENTRY AND AGAIN AFTER 


DPOP. 
DO THE TEST FOR BOTH MAIN AND AUXILIARY SEGMENT SPECIFIED IN C~BASE. 
REPEAT 20 TIMES AFTER A QUICK PASS. 


NOTE THAT AN ERROR WHERE CHAR CODE = 
CHAR MODE DIDN'T TERMINATE WITH THE FINAL DPOP. 
IN EVERY OTHER CASE, EXP DPC = SETCB + 2(CC) + 4. 


ALSO, ANY ERROR IMPLIES THAT WE'VE LOST CONTROL AND 
*T CONTINUE. 


-1 IMPLIES THAT 


CHAR ARRAY SIZE = 67. WORDS (OPCODE + 128 CHAR + DJMP,RETURN). 
tURTST: COMBEG 
PC, TSTGO : TITLE. 
4eR PC DPRESET " DO SOFT INIT. 
MOV #CT.SUB,CHSEG ;GET INITIAL BASE ADDRESS, MAIN SEGMENT. 
MOV #20$,EXTA : SET ERROR EXTENSION ADDRESS. 
MOV FREE.R1 ; BUFFER ADDRESS => R1. 
MOV R1,CT.ASC * SET "DUMP FREE’’ CODE. 
CLR R2 ‘1ST CHAR CODE => R2 
MOV #CHAR, (R1)+ SET GHAR OPCODE... 
68: MOVB _—-R2, (Ri) + +... AND 128 CHARACTERS... 
INC  R2 
CMP = R2, #128. ' 
BNE 6$ 
MOV ADIMP , (R1)+ :...AND THE RETURN LINK. 
MOV #CT.RET, (R1)+ 
MOV aps , 
BIC ansh Rs R3 
BIS #STOP,R3 :SET EXP DSR FOR ERROR. 


5$: 


5240 053342 MOV 

5241 053350 

o5¢6 053356 R1 
5244 053360 HSEG, 
5245 053364 2702 

5246 053370 ° 


CHSEG,CT.ASC~4 
CHSEG,CT.BAS 


CHSEG,R2 
#*CAUXSEG,R2 
#CT.SUB+4 ,R2 


bp KKK KKK KKK KKK KKK KKK KK KKK <<< BEGIN SEGMENT. 


INIT INITIAL BASE ADDRESS. 


INIT BASE ADDRESS IN CHAR SUBTRN. 


CURRENT CHAR. 
pet SEGMENT SELECTOR 


-FOR DPC READBACK 
..AND SET EXPECTED DPC. 


SEQ 0140 . 





ie GRAPHIC SYS. DIAG MACRO M1113 29-JAN-81 17:22 PAGE bal 
eee 


CHARACTERS 
5247 053374 012777 053734 127430 MOV #CT,aDPC 
5248 053402 000403 SKP3 
49 05 012777 000001 127420 1$: MOV #1 ,aDPC 
5250 053412 004737 027454 JSR PC ,WAITF 
$251 053416 027702 127410 CMP @DPC .R2 
5252 053422 001410 BEQ $ 
5253 053424 HRDERR CHRF ,PCSERR 
5254 053444 013746 003240 2$: MOV FREE ,~(SP) 
5255 053450 005701 TST R1 
5256 053452 100003 BPL 153 
5257 053454 062716 000203 ADD #203, (SP) 
5258 0534 000405 BR 16$ 
5259 053462 062716 000004 15$: ADD #4, (SP) 
0534 060116 ADD R1, (SP) 
5261 053470 042716 000001 BIC #1, (SP) 
5262 053474 012637 023056 16$: MOV (SP)+,GDDAT 
5263 053500 004737 022360 JSR PC .PCSCHK 
053 012737 100000 023056 MOV ye 
5265 053512 004737 022410 JSR PC,FLGCHK 
5266 053516 012737 000003 023056 MOV #SELCSR, ~— 
5267 053524 004737 022440 JSR PC, CSRCHK 
5268 053530 013737 053762 023056 MOV CT.BAS ,GDDAT 
5269 053536 004737 022624 JSR PC, CBCHK 
35% 053542 CKLOOP 
5272 053544 005701 TST R1 
5273 053546 100414 BMI 3$ 
5274 053550 162737 000002 053762 SUB #2,CT.BAS 
5275 053556 005201 INC R1 
276 05 020127 000200 CMP R1,4128. 
5277 053564 001307 BNE 1$ 
5278 053566 012701 177777 MOV #-1,R1 
5279 053572 012702 053754 MOV ACT.RET+2,R2 
5280 053576 000702 BR 1$ 
053600 3$: ENDSEG 
5283 053602 032737 000001 053732 BIT #AUXSEG, CHSEG 
0536 001004 BNE 31$ 
5285 053612 052737 000001 053732 BIS MHAUXSEG, CHSEG 
0536. 000647 BR $ 
5287 053622 042737 000001 053732 31%: BIC HAUXSEG, CHSEG 
0536 LOOPTO 
0536 004737 027646 SR PC,LOOP 
05 103641 BCS 5$ 
5289 053636 005737 002502 TST DPUMOD 
5290 053642 001013 BNE 40$ 
5291 053644 737 026074 JSR PC,DPRESET 
5292 053650 DPSTART #CHDISP 
05 012777 053766 127154 MOV #CHDISP,aDPC 
053656 004737 027454 JSR PC,WAI TF 
5293 053662 004737 027514 JSR PC,PAUSE1 
5294 053666 004737 027514 JSR PC ,PAUSE1 
5295 053672 40$: 
5296 053672 004737 030072 of ee tere 


5297 053676 
5298 
5299 





SEQ 0141 


START, XCT 1Si_ CHAR. 
SKIP OVER RESUME 
TRESUME, XCI NEXT CHAR. 


CHECK DPC = R2 

TERROR IF i. S WRONG. 

;CHAR MODE FAILS. 

GET war —Aig~ F DISPLAY FILE, 


NA 

;SKIP AHEAD IF NOT. aaa! 
SAY PCSAVE IS EMPTY, WITH FINAL ADDRESS. 
:...THEN GO CHECK IT. aaal 
; ADD OFFSET FOR FIRST TRIP, 
: AND THE CHARACTER, 

MAKE EVEN, 2 CHARS/WORD 
S EXPECTED DATA FOR PCSAVE 
:...CHECK PCSAVE. 
+ NOW CHECK FOR ‘"'CHAR’’ OPCODE IN FLAGS 


i... AND CSR 

“CHECK THE CHARACTER BASE 
SLOOP ON ERROR. 

HAVE WE TERMINATED ?? 


sEXIT IF SO. 
:NO, DECR BASE ADDRESS. 
COUNT. 


: NOT. 

TYES, SET TERMINATE FLAG... 

>..ADJUST EXPECTED DPC... 
.-AND LOOP TO XCT FINAL DPOP. 


: KKK KKKKKKKKKKKKK KKK KKK KK KC END SEGMENT. 


WE DO AUX SEGMENT? 
:BR IF ves. ada! 
:;NO. SO DO IT NOW 
;LOOP BACK AFTER gil». SEG BIT. aaa] 
DID AUX, SO CLEAR THE BIT 

> REPEAT TIL LOOPER EXPIRES. 


; ARE WE IN DPU-MODE ONLY? 


BR=YES. 
; DO SOFT INIT. & CHECK STATE 


; START THE DPU. 
; WAIT FOR DISPLAY STOP. 


- EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


> ON ERROR, SHOW BASE ADDRESS AND CURRENT CHAR CODE. 


—________—_--- 


M11 
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wee TEST 17 


5300 
5301 053702 
5302 053730 


5303 

5304 053732 
5305 

5306 

5307 

5308 053734 
309 742 


53754 
53756 


53760 


ooo oO 
wm 


5326 
5327 054012 


5333 054056 
5334 054064 
5335 054066 
336 


5 

5337 054076 
5338 054104 
5339 054106 


5340 
5341 054124 
5342 054132 
5343 054134 
344 


5 

5345 054152 
5346 054160 
5347 054162 
5348 


5349 
5350 054170 
5351 054176 
5352 054200 
5353 
5354 054220 


5355 054226 
5356 054230 


CHARACTERS 
000207 
053754 
164000 164000 
152000 053754 
160000 
000000 
173000 
053756 
173000 
152000 
053754 
165000 
176074 176474 
170140 
152000 110146 
117774 001000 
100000 

040 041 
114000 001000 
100000 

060 061 
114000 001000 
100000 

072 073 
114000 001000 
100000 

101 102 
114000 001000 
100000 

116 117 
114000 001000 
100000 

133 134 
117774 001000 
100000 

040 041 
114000 001000 
100000 

060 061 


164000 


177074 


001500 
042 
001400 
001300 
074 
001200 
103 
001100 
120 
001000 
135 


000602 
042 
000502 
062 


50$: PRINTX #CHRFX.CT.BAS RT : ERROR EXTENSION. 


CHSEG: CT.SUB ;CHARACTER BASE CONTROL, WITH SEGMENT SELECT. 
+ DISPLAY CODE FOR CHAR MODE TEST. 


CT: DNOP , DNOP , DNOP 
SETCB,CT.SUB INITIAL BASE ADDR = CT.SUB. 
DJMP :XFER PC }+ TH - CHAR... 
CT.ASC: 0 2c 5pDATA 
CT.RET: STOPN FINAL ‘DPOP SHOULD RETURN HERE 
CT.SUB: .+2 ; SUBROUTINE ENTRY PONNTER. 
STOPN ; STOP HERE IF CHAR ADDRESSES... 
-COME OUT RIGHT. 
SETCB :ON RESUME, SET NEW BASE ADDR.. 
CT.BAS: CT.SUB 
DPOP ;...AND DPOP TO NEXT CHAR. 


3; DISPLAY FILE FOR CHARACTER DISPLAY: 
CHDISP: RDWRT!CHO,RDWRT!CH1,RDWRT ! CH2,RDWRT ! CH3 
CLRMEM 
SETCB, ACAT 
APNT!ALL,1000,1500 
CHAR 
ASCII 2? !° S28" ()*+,-./? 
-EVEN 
APNT 1000, 1400 
HAR 


C 
eASCII_ /0123456789/ 
APNT,1000,1300 


CHAR 

-ASCII /:3<=>?0 / 

EVEN 

APNT,1000,1200 

CHAR 

ore /ABCDEFGHIJKLM / 
APNT,1000,1100 

HAR 

-ASCII /NOPQRSTUVWXYZ / 
APNT,1000,1000 

CHAR 

ASCII /C\I*_ / 

EVEN 


ee SE Ae 

ASCII 2? !°AS28"°()*+,-./? 
-EVEN 

APNT,1000,502 

CHAR 

-ASCII /0123456789/ 





SEQ 0142 


a 













eee TEST 
24 054242 
4250 


5364 

5365 054310 

5366 054316 

5367 054320 
368 


5 

5369 054336 
5370 054344 
5371 054346 
5372 

5373 054354 


5374 
5375 054356 


CHARACT 
114000 
100000 
072 
114000 
00000 
101 


173000 


001000 
073 
001000 
102 
001000 
117 
001000 
134 


000402 
074 
000302 
103 
000202 
120 
000102 
135 


© HI IIIT II IOI IT IOI FOI TT TOTO TT TO TOIT TOT TTT TOTS SOT TOT OT ITI ATT TTT TIT TT TT IK 


-* 
** 
-* 


RI TTT TOTTI ITI TOT TT TT TOTTI TOTO TOTO TT TOTTI OTT TOT TOT TOTTI TTT TTT TREE EK TR EK 


N_1 
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APNT 1000402 
“ASCII /:3<=>?@ / 
APNT , 1000, 302 
CHAR 
-ASCII /ABCDEFGHIJKLM / 
APNT,1000,202 
CHAR 
“ASCII /NOPORSTUVWXYZ / 
“EVEN 
APNT, 1000, 102 
CHAR 
“ASCII. /E\I*_ / 
“EVEN 
STOPN 
END. TEST 


END TEST 17 


SEQ 0143 


Vi 


*) 


| fo See T SS 
81 
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eee TEST 18 ABSOLUTE POINTS SEQ 0144 


5377 





REAR EEE EATER EERE REREEEREEEEE REE EERE EE TEER ERE EEE EE 
-* 


* BEGIN TEST 18 = ABSOLUTE POINTS 
“*® 


REE ERR RRR ERE EERE REAR EERE REE E REE 


; (ITERATION COUNT = 10.) 


5379 > VERIFY THAT WE CAN EXECUTE ABSOLUTE POINTS FOR THE FULL 
2380 : RANGE OF X/Y. 
5382 * PLOT ALL X POINTS, HOLDING Y AT 0. 
5383 + PLOT ALL Y POINTS, HOLDING X AT 0. 
rE : PLOT ALL POINTS ON THE 45 (X = Y). 
2386 + REPEAT EACH POINT 10 TIMES AFTER QUICK PASS. 
5388 C54430 004737 027702 APTST: JSR PC,TSTGO : TITLE 
5389 054434 012737 054740 022300 MOV #20$,EXTA + SET ERROR EXTENSION ADDRESS. 
2390 054442 004737 027054 JSR PC,LUMIN + BLAST LUT (IF THERE IS ONE). 
5392 054446 005737 002502 TST DPUMOD 
5393 054452 001002 BNE .+6 : SKIP NEXT IF DPU-ONLY. 
239% 054454 004737 026650 JSR PC, CLRRW > CLEAR AND SET R/W MODE. 
5396 054460 012737 177777 003232 MOV #-1, TEMP 7USE AS XFER SWITCH. 
5397 054466 013737 027700 003234 MOV LOOPK , TEMP2 *SAVE A COPY OF THE LOOPER. 
5398 054474 005004 8$: CLR R4 sEXPECTED X ADDRESS. 
5399 054476 005005 CLR RS SEXPECTED Y ADDRESS. 
5400 054500 005037 055010 CLR ABPX : INIT 
5401 054504 053737 003064 055010 BIS OPTI, ABPX “INTENSIFY IS OPTIONAL... 
2408 054512 005037 055012 CLR ABPY :...AND Y AT 0. 
268 054516 1$: BGNSEG b KKKK KKK KKK KKK KKK KKK KK KKK BEGIN SEGMENT. 
5406 054520 012777 055002 126304 9$: MOV #ABP , ADPC START DISPLAY... 
5407 054526 004737 027454 JSR PC, WAITF *WAIT FOR DONE FLAG. 
5408 054532 027704 126300 CMP @DXR,R4 *CHECK DXR = R4... 
5409 054536 001003 BNE 2$ 
5410 054540 027705 126274 CMP aDYR,RS :...AND DYR = RS. 
5411 054544 001410 BEQ & 
5412 054546 2$: HRDERR APF ,XYERR :ABS POINT FAILS. 
5413 054566 3$: LOOPTO 9$ : REPEAT...TIL LOOPER EXPIRES. 
054566 004737 027646 JSR PC,LOOP 
054572 103752 BCS 9$ 
ty 054574 ENDSEG bp KKKK KKK KKK EK KKK KKK KK KKK <<< END SEGMENT. 
5416 054576 013737 003234 027700 MOV TEMP2 , LOOPK :RESET LOOPER. 
5417 054604 005737 003232 TST TEMP1 “TEST XFER SWITCH. 
5418 054610 003027 BGT 5$ *INCR BOTH X AND Y. 
19 054612 001413 BEQ 4$ *INCR Y ONLY. 
5421 054614 062704 000002 ADD #2,R4 :INCR X ONLY. 
5422 054620 062737 000002 055010 ADD #2, ABPX 


5423 054626 020427 001776 CMP R4 ,AMAXX 





5424 054632 
54 54634 
5426 054640 


seth 054714 
5443 054716 


56 055002 


5460 055014 
5461 
5462 055016 


ABSOLUTE POINTS 


101731 
37 


000207 


117774 
000000 
000000 
000000 
173000 


C 12 
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«ee TEST 18 


BLOS 1% z..-AND LOOP ‘TIL DONE. 
003232 INC TEMP1 ‘THEN, BUMP SWITCH... 
BR $ +...AND REINIT. 
000002 4$: ADD #2,R5 sINCR Y ONLY. 
000002 055012 ADD #2,ABPY 
001776 CMP R5 .AMAXY 
BLOS 1$ .AND LOOP ‘TIL DONE. 
003232 : INC TEMP1 “THEN, BUMP SWITCH... 
8$ +...AND REINIT. 
000002 S$: #2,R0 :INCR X AND Y. 
ADD RO,R4 SINCR X'S... 
055010 ADD RO, ABPX 
ADD 0,R5 :..-AND Y'S... 
055012 ADD RO, ABPY 
001776 CMP R5 .AMAXY 
BLOS 1$ :..-AND LOOP "TIL DONE. 
002592 10$: TST DPUMOD 
BNE 11$ 
027514 JSR PC ,PAUSE1 : PAUSE IF VIDEO ON. 
030072 11$: JSR PC. TSTEND 
EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
* ON ERROR, SHOW ORIGIN AND DELTAS. 
208: PRINTX #LONGXABP*2.ABP+4 »ABPX ABPY : EXTENSION. 
: DISPLAY FILE FOR APNT TEST. 
ABP: APNT! ALL 
000000 0,0 
ABP: 0 
ABPY: 0 
STOPN 
END. TEST 


© I I I HII TIT TIT FT TOIT TO TTT ITT TTT TT RT TERE EEE EEE REET RAKE EE 


° 


* END TEST 18 
** 


Soom -_- Bem ee 


© eI TI I TTT ETIEEEREREEEREREREREEEEEEEEET  H 


SEQ 0145 


ee ee 


D 12 
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eee TEST 19 LONG VECTORS 





5464 
MH REE EERE RRR EKER EER EERE EEE REE 
| ** 
3° BEGIN TEST 19 = LONG VECTORS 
: Se He HI TI TREE REE EEE EER ERE EEE EEE 
: (ITERATION COUNT = 10.) 
5465 é 
5466 : GENERATE LONG VECTORS FROM 0,0 VARYING THE LENGTH FROM 
5407 > MAX(X) TO HALF(XY) TO MAX(Y). 
8 : THEN REPEAT FROM MAX ,MAX USING NEGATIVE DELTAS. 
3470 : [THIS MAY BE WORST CASE !!!J 
2% + REPEAT EACH VECTOR 10 TIMES AFTER QUICK PASS. 
5474 055066 004737 027702 LvTST: JSR PC,TSTGO sTITLE 
»., 5475 055072 012737 055406 022300 MOV #20$,EXTA : SET ERROR EXTENSION ADDRESS. 
re 055100 004737 027054 JSR PC,LUMIN ; BLAST THE LUT. 
5478 055104 005737 002502 TST DPUMOD 
5479 055110 001002 BNE .+6 : SKIP NEXT IF DPU-ONLY. 
pa 055112 004737 026650 JSR PC,CLRRW : CLEAR AND SET R/W MODE. 
5482 055116 005037 055452 CLR LV+2 INIT ORIGIN AT 0,0. 
5483 055122 005037 055454 CLR LV+4 
5484 055126 012704 001776 MOV AMAXX ,RS : INIT EXP X AT MAX, 
5485 055132 005005 CLR R5 AND Y AT 0. 
5486 055134 010437 055460 MOV R4,LVX S INIT X LENGTH.. 
5487 055140 053737 003064 055460 BIS OPTI ,LVX +. . OPTIONAL INT... 
488 055146 010537 055462 MOV R5,LVY :...AND Y LENGTH 
5489 055152 012702 177776 MOV #-2,R2 : INIT EXP 
5490 055156 012703 000002 MOV #2,R3 -AND Y INCR'S. 
rofl 055162 013737 027700 003234 MOV LOOPK , TEMP2 :SAVE A COPY OF LOOPK. 
4] 055170 1$: BGNSEG b KK KKK KKK KKK KKK KKK KKK KK KKK < BEGIN SEGMENT. 
5495 055172 012777 055450 125632 9$: MOV A#LV,aDPC sSTART ‘EM UP. 
5496 055200 004737 027454 JSR PC ,WAITF 
5497 055204 027704 125626 CMP @DXR,R4 sCHECK DXR = R4... 
5498 055210 001 BNE 2 
5499 055212 027705 125622 CMP @DYR,RS z:..-AND DYR = RS. 
5500 055216 001410 BEQ 3$ 
5501 055220 2$: HRDERR LVF ,XYERR :LONG VECTOR FAILS. 
5502 055240 3$: LCOPTO 9$ ; REPEAT... 
055240 004737 027646 JSR PC,LOOP 
055244 103752 BCS 9$ 
tone 055246 ENDSEG p KKKK KKK KKK EK KKK KKK KKK KKK END SEGMENT. 
5505 eat 013737 003234 027700 MOV TEMP2 ,LOOPK ;RESET LOOPER. 
5506 055256 033727 055460 001777 BIT LVX,41777 
5507 055264 001411 BEQ 4$ 7BR IF DELTA X = 0. 
5508 055266 162737 000002 055460 SUB #2,LVx ; OTHERWISE DECR DX. 
5509 055274 062737 000002 055462 ADD #2,LVY .AND INCR DY 
5510 055302 060204 ADD R2,R4 SET NEXT EXP XxX. 


SEQ 0146 


12 
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a 


°2 


. 
SUCRE AAEAAEATREAAAETEAEARERASRAAEAEERERARRARAEERAATEEAAAENSHAARER ENOTES 


see TEST 19 LONG VECTORS SEG 0147 

5511 055304 060305 ADD R3,R5 s..eAND EXP Y. 

2312 055306 000730 BR 1$ + ...AND CONTINUE. 

5514 055310 033727 055460 020000 4%: BIT LVX,AMXY ;ARE WE IN THE NEG CYCLE ?? 

5515 055316 001022 BNE 10$ “WE'RE DONE IF SO. 

5516 055320 012737 001776 055452 MOV HMAXX ,LV#2 ; OTHERWISE, REINIT ORIGIN... 

5517 055326 012737 001776 055454 MOV AMAXY.LV+4 .AT MAX.MAX, 

5518 055334 052737 021776 055460 BIS #MXY'MAXX,LVX  :INIT X LENGTH AT -MAX. 

5519 055342 012737 020000 055462 MOV AMXY!O,LVY ‘INIT Y LENGTH AT -0. 

5520 05535 5 CLR R4 :INIT EXP X = 0... 

5521 055352 012705 001776 MOV AMAXY ,RS ..AND Y = MAX. 

5522 055356 005402 NEG R2 "REVERSE EXP INCR'S. 

5523 055360 005403 NEG R3 

3524 055362 000702 R 1$ :AND GO "ROUN” . 

5526 055364 005737 002502 10$: TST DPUMOD 

5527 055370 001002 BNE 11$ 

$528 055372 004737 027514 JSR PC ,PAUSE1 ; PAUSE IF VIDEO ON. 

5529 055376 004737 030072 11$: JSR PC. TSTEND 

2230 055402 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 

3532 > ON ERROR, SHOW ORIGIN AND DELTAS. 

5534 055406 208: PRINTX #LONGX,LV+2,LV+4,LVX,LVY ; EXTENSION. 

2239 055446 000207 RTS PC 

3537 + DISPLAY FILE FOR LONG VECTOR TEST. 

5539 055450 114000 Lv: APNT 

5540 055452 000000 000000 0,0 

5541 055456 113774 LVEC!ALL 

5542 055460 000000 LVX: 0 

$543 055462 000000 LVY: 0 

3544 055464 173000 STOPN 

546 055466 END. TEST 
SAAR EA AERA RAEREEAET EATER AREAARAEERRERRARERERAAREAERAREHAERA EHNA EH EAE ES 
ie END TEST 19 


a 


eee TEST 20 
5548 


Wr & 


Wahvabvalvalvabealvaleaheacal 
ww 
NOU EWN OO 


Wa aleal ales Abeal eal Akal 


wv 
co 


5559 €55540 
5560 055544 
5561 055552 
5562 


6 
5563 055556 
5564 055562 
5565 055564 
5566 


5567 055570 


5572 055620 
5573 

5574 055626 
5575 

5576 055630 
5 636 


5583 055676 
055676 
055702 

5584 055704 


5586 055706 
5587 055714 
5588 055720 
5589 055722 
590 


5 

5591 055724 
5592 055730 
5593 055732 
5594 055736 


RELATIVE POIN 


004737 
012737 
004737 


005737 
001002 
004737 


012737 


053737 


012777 


004737 
103752 


013737 


042737 


027702 
056104 
027054 
002502 
026650 
177777 
027700 
000702 


037576 
003064 


056142 
027454 
125170 


125164 


027646 


003234 
003232 


000002 


027312 
037600 


022300 


003232 
003234 


056152 
056152 


125174 


027700 


056152 


le 
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a 


SEQ 0148 


TORR RASSSASESE ESSE ESE SERRE EERE RE EERE ERR RRR RRR RRR RRR RAR RRR RRR ARRAS RRR RSS SE SD 


BEGIN TEST 20. = 


TPP RRSRASASESSELE LESSER ERE R RSE RRR ERAS RRR RRR SRR RARER RRR RAR ARR RRR RRA ROSS 


; (ITERATION COUNT = 10.) 


RPTST: 


8$: 


1$: 
9$: 


2$: 
3$: 


PC, TSTGO : 
#20$,EXTA : 
PC,LUMIN 
DPUMOD 

+6 3 
PC,CLRRW : 
#-1,TEMP1 
LOOPK , TEMP2 
#1000-76,R4 
R4,R5 
#37576, RPD 
OPTI ,RPD 


#RPT ,aDPC 
PC ,WAITF 
— 
aDYR,R5 
3$ 

RPF ,XYERR 
9$ 
PC,LOOP 
9$ 


RELATIVE POINTS 


VERIFY THAT WE CAN EXECUTE RELATIVE POINTS FROM 1000,1000 
FOR THE FULL RANGE OF X/Y (-76 TO +76). 


PLOT ALL X POINTS, HOLDING Y AT ~76. 
PLOT ALL Y POINTS, HOLDING X AT 76. 
PLOT ALL POINTS ON THE 45 (X = YD. 


REPEAT EACH POINT 10 TIMES AFTER QUICK PASS. 


TITLE 
SET ERROR EXTENSION ADDRESS. 


; BLAST THE LUT. 


; SKIP NEXT IF DPU-ONLY. 


CLEAR AND SET R/W MODE. 


;USE AS XFER SWITCH. 


SAVE A COPY OF ows 
: INIT i x. 


-AND Y 
“INIT DX,DY AT -MAX,-MAX. 
Z OPTIONAL INTENSIFY. 


8 KKK KKK KK KK ER EK BEGIN SEGMENT. 


START DISPLAY 


; CHECK DXR = R4. 


:..-AND DYR = RS. 
ZREL POINT FAILS. 
EPE 


KEK EERE EERE EK KK END SEGMENT. 


TEMP2 , LOOPK ;RESET LOOPER. 
TEMP1 [TEST XFER SWITCH. 
5$ *INCR X AND Y, 
4$ sINCR Y ONLY. 
#2,R4 sINCR X ONLY. 
R4,RO 
C°SDx sCALCULATE */= DX IN RO. 
#37600,RPD *CLEAR OLD.. 


--- ee = soe a 


| 6 12 
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eee TEST 20 RELATIVE POINTS 


5595 055744 050037 056152 BIS RO,R yeeeSET NEX DX. 
5596 055750 020427 601076 CMP RG, O76 
5597 055754 101724 BLOS 1$ ZAND LOOP ‘TIL DONE . 
5598 055756 005237 003232 INC TEMP1 “THEN, BUMP SWITCH... 
| 2999 055762 000710 BR 8$ +...AND REINIT. 
1 055 062705 000002 4$: ADD #2,R5 :INCR Y ONLY. 
5602 055770 010500 MOV R5.RO 
| §603 055772 004737 027270 JSR PC SDY SCALCULATE +/= DY IN RO. 
5604 055776 110037 056152 MOVB RO, RPD sSET NEW DY. 
| 5605 056002 020527 001076 (MPs R5L #1076 
5606 056006 101707 BLOS 1$ sAND LOOP "TIL DONE. 
| 5607 956010 005237 003232 INC TEMP1 THEN, BUMP SWITCH... 
3608 056014 000673 BR 8$ +...AND REINIT. 
5610 056016 062704 000002 5$: ADD #2,R4 sINCR X AND Y. 
5511 056022 010405 MOV R4.R5 > (Y¥ = xX) 
5612 056024 010500 MOV R5,RO 
5613 056026 004737 027270 JSR PC SDY sCALCULATE +/= DY IN RO. 
5614 056032 010001 MOV RO,R1 *SAVE FOR A MOMENT. 
5615 056034 000300 SWAB ~—_ RO 
5616 056036 006200 ASR RO ;REPOSITION FOR DX. 
5617 056040 050100 BIS R1,RO ‘COMBINE DX AND DY. 
5618 056042 042737 037777 056152 BIC #37777,RPD : CLEAR OLD. 
5619 056050 050037 056152 BIS RO, RPD -SET NEW DX,DY. 
5620 056054 020527 001076 CMP R5.#1076 
eet 056060 101662 BLOS 1$ :AND LOOP ‘TIL DONE. 
5623 056062 005737 002502 10$: TST DPUMOD 
5624 056066 001002 BNE 11$ 
5625 056070 004737 027514 JSR PC ,PAUSE1 : PAUSE IF VIDEO ON. 
5626 056074 004737 030072 11$: JSR PC; TSTEND 
rxt4 056100 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
3629 : ON ERROR, SHOW ORIGIN AND DELTAS. 
5631 056104 208: PRINTX #SHRTX,RPT+2,RPT+4,RPD ; EXTENSION. 
2632 056149 000207 RTS PC 
Pate sDISPLAY FILE FOR REL POINT TEST. 
5636 056142 114000 RPT: APNT 
5637 056144 001000 001000 1000,1000 sORIGIN AT CENTER SCREEN. 
5638 056150 133774 RPNT ‘ALL 
5639 056152 000000 RPD: 0 :DELTA X AND DELTA Y. 
2640 056154 173000 STOPN 
5642 056156 END. TEST 
3 RARER ERATE eeeneeeeeweeeeeeee 
‘* END TEST 20 


SEQ 0149 


| ySV11/VS11_ <= GRAPHIC SY 
eee TEST 21 SHORT VE 


5644 


5663 056306 013737 
5664 

5665 056314 

666 

geet 056316 012777 


5672 056342 001411 
5674 056364 000403 
056366 004737 
056372 103751 


| 
56 
5652 056226 004737 
5653 056232 012737 
5 004737 
5678 056376 013737 
0564 


413 
5684 056424 010400 
5685 056426 004737 
5686 056432 042737 
5687 056440 050037 
5688 056444 000723 
5689 
5690 056446 020527 


S. DI 
CTORS 


H 12 
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RARER RARER THERE HRAERREEHERARH RHEE EHeAeeAeeeenateetekene 


-* 


:* BEGIN TEST 21. = 


SHORT VECTORS 


ERE EAA REA EAE RAERAATHE AREER ERAA ARERR KARA eee 


; (ITERATION COUNT = 10.) 


C8 Ba Be Be Oe Be we 


VERIFY THAT WE CAN EXECUTE ay VECTORS FROM 1000,1000 
FOR ALL VALUES OF DELTA X AND Y 
SWEEP VECTORS FROM MAX,MAX, CCW THRU 360 DEGREES. 


REPEAT EACH VECTOR 10 TIMES AFTER QUICK PASS. 


027702 ByTST: JSR PC,TSTGO s TITLE 
056604 022300 MOV M20S,EXTA : SET i EXTENSION ADDRESS. 
027054 JSR PC,LUMIN ; BLAST LUT 
062502 TST DPUMOD 
BNE +6 : SKIP NEXT IF DPU-ONLY. 
6650 JSR PC,CLRRW > CLEAR AND SET R/W MODE. 
001074 MOV #1074,R4 : INIT — Riws 
001076 MOV #1076,R5 -AND Y TOO. 
017076 056652 MOV #17076, SVD tINIT DX +74, DX +76. 
003064 056652 BIS OPT!, SVD - INT OPT IONAL. 
003232 CLR TEMP) USE AS XFER SWITCH. 
027700 003234 MOV LGOPK , TEMP2 :SAVE A COPY OF LOOPER. 
1$: BGNSEG p KKK KK EKER ERE KK KKK KKK BEGIN SEGMENT. 
056642 124506 9$: MOV #SVT,aDPC ;START DISPLAY 
027454 JSR PC ,WAITF 
124502 CMP @DXR,RS sCHECK DXR = R4... 
BNE 2$ 
124476 a aDYR,R5 ;..-AND DYR = RS. 
2$: HRDERR SVF,XYERR ;SHORT VECTOR FAILS. 
BR 30$ 
3$: LOOPTO 9$ ; REPEAT... 
027646 JSR PC,LOOP 
BCS i) 3 
30$: ENDSEG J KKK KKK KK ERK KKK KKK KK KKK END SEGMENT. 
003234 027700 MOV TEMP2 ,_OOPK ;RESET LOOPER. 
003232 TST TEMP 1 sTEST XFER SWITCH... 
BNE 7$ 5g oll IF SET. 
000702 CMP R4,41000-76 
BEQ 5$ ;BR IF X MIN. 
000002 SUB #2 RS ;OTHERWISE, DECR X. 
MOV R4,RO 
027312 JSR PC,SDX ; TRANSLATE TO DX. 
037600 056652 BIC #37600, SVD “CLEAR OLD... 
056652 BIS RO,SVD s.2-SET NEW DX... 
BR 1$ t..eAND CONTINUE. 
000702 5$: CMP R5,#1000-76 


SEQ 0150 


<< 


[a nnn 


rn rN a 2 


5691 056452 
569. toote] 


5706 056532 
5707 
5708 056534 


5712 056550 
5713 056554 
5714 056560 
5715 

5716 056562 
5717 056566 
5718 056570 
5719 056574 
5720 056600 
5721 

5722 

5723 

5724 056604 
ors? 056640 


SHORT VEC 


c00002 
027270 
056652 
003232 
001076 
000002 
027312 
037600 
056652 
001076 
000002 
027270 
056652 
002502 


027514 
030072 


056652 
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BEQ 6$ :BR IF Y MIN. 

SUB #2,R5 SOTHERWISE, DFCR Y. 

MOV R5,RO 

JSR PC,SDY : TRANSLATE TO DY. 

MOVB —- RO, SVD *SET NEW DY... 

BR 1$ *,. AND CONTINUE. 
6$: COM TEMP1 sSET XFER SWITCH. 
7$: CMP RL ,#1000+76 

BEG 8$ :BR IF X IS MAX. 

ADD #2,R4 TOTHERWISE, INCR X. 

MOV Ra. RO 

JSR : TRANSLATE TO DX. 

BIC #37000, SVD “CLEAR OLD... 

BIS RO. SVD i++ SET Meo DX. 

BR 1$ ** "AND CONTINUE. 
as: CMP R5,#1000+76 

BEQ 10$ :BR (DONE) IF Y IS MAX. 

ADD #2,R5 TOHTERWISE, INCR Y. 


; TRANSLATE TO DY. 
MOVB RO,SVD SET NEW DY... 
BR j..-AND CONTINUE. 


108: TST DPUMOD 
BNE 11$ 
JSR PC ,PAUSE1 : PAUSE IF VIDEO ON. 
11$: JSR PC. TSTEND 
EXIT TST 3 EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
+ ON ERROR, SHOW ORIGIN AND DELTAS. 
50$: PRINTX &#SHRTX,SVT+2,SVT#4,SVD ; EXTENSION. 
RTS PC 
* DISPLAY CODE FOR SHORT VECTORS. 
SvT: APNT 
1000, 1000 :ORIGIN AT CENTER SCREEN. 
SVEC ALL 
svD: 0 :DELTA X AND DELTA Y. 
STOPN 
END. TES! 
"Degg > ain a Ae i i nts aaa aan 
te END TEST 21 
*® 
See eeeeeeereeneneeeeneterereeeeeeneenrnteneeana Nee eHeHennenseeeeeeeenes 
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eee TEST 22 
573? 


| 
| 2 
$743 0567246 
056726 
056730 
5744 0567346 
5745 056740 
5746 056744 
5747 
5748 
5749 056746 
056760 
5751 056764 
5752 056766 


5750 056752 
056752 
5753 056772 
056772 


5755 0 

5756 057010 

5757 057014 

5758 057020 

5759 057024 
057024 


eer 057064 


5764 
5765 057066 
5766 057072 


RUN@LENGTH 


012705 
012777 
004737 
110537 
052777 
004737 


012705 


012777 
004737 


110537 


052777 
004737 


027702 


000001 


057564 
027454 


057605 


000001 
027454 


000000 
124016 
124014 


000200 


000001 


057614 
02745 


057635 


000001 
02745 


124052 


124032 


123732 


123712 


er ae ge ae 


BEGIN TEST 22. = 


; (ITERATION COUNT = 10.) 


RUN=L ENGTH 


 eeececedenenbenensesennesoqseeneeneneanneneseneeeseeaeccosnceoesneeenes 


; ALL VARIATIONS OF RUN LENTH MODE ARE DONE AND THE END POINTS ARE CHECKED. 
: JF TESTING IN DPU-ONLY MODE, JUST THE ‘NEWLINE’ COMMANDS ARE TESTED. 


2$: 


65$: 
64$: 


3$ 


COMBE G 
J 


DP NC 
05 S 72 MOV 
057100 4 JS C,WAI 
5767 057104 
5768 057106 : MO 
5769 057112 
O30 4 ; C WAI TF 


PC,TSTGO 
PC,.DPRESET 
PC, CLRRW 
DPUMOD 


RLNEWL 


LI , 
DO Sart ‘ inif 

CLEAR FOR READ/WRITE. 

ARE WE IN DPU-ONLY MODE? 

IF YES, JUST DO ‘NEWL INE*’ Fags 


; IF NO, ‘DO ALL TESTS ( WRITE TO SCRIEEN ). 


#1,R5 
#XINC 
#XINC ,aDPC 
PC ,WAITF 


INCREMENT. 


: INIT COUNT FOR X TEST. 


START THE DPU. 
WAIT FOR DISPLAY STOP. 


: EE EKEEEKK KEK KEKE KEKE EEKKKE BEGIN SEGMENT. 


R5,XINCB+1 


#B81T0,aDPC 
PC ,WAITF 
R1- 

#0,R3 
@DXR,R2 


aDYR,R4S 
RLXIE,RLXYE 
R1,R2 

65$ 

R3,R4 


64$ 
RLXIE,RLXYE, 


INC R5 
R5,4200 
2s 


; DONE? 


; MODIFY COUNT IN DISPLAY FILE. 


CONTINUE THE DPU. 
WAIT FOR DISPLAY STOP. 
R1 = EXPECTED DXR. 


R3 = EXPECTED DYR. 
READ DXR INTO Re. 

READ DYR INTO R4. 

1ST ITEM OK? 

NO 


en ITEM OK? 


; INCREMENT X VALUE. 


: E£E EE EEEEEEEEEEEEE EEE END SEGMENT. 


#1,R5 

*x3] 
#X2INC,@DPC 
PC, WAITF 


R5, X2INCB+1 


soir’ aDPC 


TEST X2 INCREMENT. 
INIT COUNT FOR X2 TEST. 


; START T 


HE DPU. 
WAIT FOR DISPLAY STOP. 


£K£KKKKKKEKK EEK E KEKE KK EEK KE BEGIN SEGMENT. 


; MODIFY COUNT IN DISPLAY FILE. 
CONTINUE THE DPU. 


; WAIT FOR DISPLAY STOP. 


SEQ 0152 


K 12 
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22 RUN=LENGTH 


eee TEST 
5770 057124 


N 
N 
o~ 
o 
Ww a) 
N 
— 
& 


5780 057206 
5781 


5782 

5783 €57210 

5784 057212 
057212 


057274 
5790 057274 
5791 
5792 
5793 057276 
5794 057300 


057306 
5795 057312 


i 057220 
5785 057224 
5786 057230 


070501 
006 


020102 
001002 
020304 
001410 


005205 


020102 
001002 
020304 
001410 


012777 


000000 
123674 
123672 


000200 


057644 
027454 
000000 
000002 
123576 
123574 


057660 
027454 
sia 


19351 0 
123506 


123612 


123524 


B 
67$: HRDERR 
66$: 


ENDSEG 
TEST Y UP. 


RLNEWL : oetee 


ART 


B 
65$: HRDERR 
64$: 


ENDSEG 
TEST Y DOWN. 
BGN 


B 
67$: HRDERR 
663: 


ENDSEG 
TEST SKIP UP. 

BGN 

DPSTART 


R5,R1 ; 

4 i 

#0,R3 ; R3 = EXPECTED DYR. 

@DXR ,R2 ; READ DXR INTO R2. 

@DYR,R4 ; READ DYR INTO R4. 

RLX2IE,RLXYE 

R1,R2 ; 1ST ITEM OK? 

67$ : NO. 

R3,R4 ; 2ND ITEM OK? 

66$ gs VES. 

RLX2IE,RLXYE, ; NO. 

R5 ; INCREMENT X VALUE. 

R5,4200 ; DONE? 

3$ ; NO. 
b KKKK KKK KKK KKK KKK KKK KKK << END SEGMENT. 
b KKKK KKK KEKE KK KK KKK KK KKK <<< BEGIN SEGMENT. 

AY 

#YUP , aDPC ; START THE DPU 

PC, WAIT ; WAIT FOR DISPLAY STOP. 

RI ; R1 = EXPECTED DXR. 

#2,R3 ; R3 = EXPECTED DYR. 

aDXR,R2 ; READ DXR INTO R2. 

@DYR,R4 ; READ DYR INTO R4. 

RLYUE ,RLXYE 

R1,R2 ; 1ST ITEM OK? 

65$ ; NO. 

R3,R4 z: 2ND ITEM OK? 

64$ : YES. 

RLYUE ,RLXYE, ; . 
KKK K KKK KKK KKK KKK KKK KKK <<< END SEGMENT. 
KKK KKK KKK KK KKK KK KK KKK KKK << BEGIN SEGMENT. 

AYDN 

AYDN, aDPC ; START THE DPU. 

PC ,WAITF ; WAIT FOR DISPLAY STOP. 

#0,R1 ; R1 = EXPECTED DXR. 

#0,R3 ; R3 = EXPECTED DYR. 

@aDXR,R2 ; READ DXR INTO R2. 

aDYR,R4 ; READ DYR INTO R4. 

RLYDE ,RLXYE 

R1,R2 3 = ITEM OK? 

R3,R4 ; 2ND ITEM OK? 

66$ s VES. 

RLYDE ,RLXYE, : NO. 
b KKKK KKK KKK KKK KKK KK KKK KK <<< END SEGMENT. 
p KKKKK KKK KKK KKK KKK KKK KKK << BEGIN SEGMENT. 

#Y2UP 


; R1 = EXPECTED DXR. 


SEQ 0153 


a< 


ne 


eee TEST 
57366 012777 057674 


7374 004737 0627454 
5805 957400 


5814 tae 9 


012777 057710 


027454 
0 


123332 


020102 
001002 


027646 
057546 000402 
057550 000137 
004737 


056740 


057554 030072 
rh 057560 


000000 
040000 


oct 057610 057574 


SEN 


123436 


123350 


000000 
000000 


L 12 
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22 RUN=LENGTH 


MOV #Y2UP ,aDPC 
JSR a pet 


MOV @aDYR,R4 
IFERRX2 RLY2UE ,RLXYE 
CMP R1,R2 

BNE 69$ 

CMP R3,R4 


BEQ 68$ 
os: HRDERR RLY2UE,RLXYE, 


SEQ 0154 


START THE DPU. 
WAIT FOR DISPLAY STOP. 


R3 = EXPECTED DYR. 
READ DXR INTO R2. 


; READ DYR INTO R4. 


; 1ST ITEM OK? 


NO. 
; 2ND ITEM OK? 
YES. 


ENDSEG gb KKK KKK KEKE EK KKK KKK KKK CEND SEGMENT. 


; TEST SKIP DOWN. 
BGNSEG 
DPSTART #Y2DN 
MOV 


MYQDN, i 
JSR PC ,WAITF 
MOV #0.R1 
MOV #0,R3 


MOV @DXR ,R2 
MOV aDYR,R4 
IFERRX2 RLY2DE,RLXYE 


b KKK KKK KEKE KKK KKK KKK KKK <<< BEGIN SEGMENT. 


START THE DPU. 
WAIT FOR DISPLAY STOP. 


; READ DXR INTO Re. 
; READ DYR INTO R4. 


CMP R1,R2 ; 1ST ITEM OK? 
BNE 71$ 3; NO. 
CMP R3,R4 : 2ND ITEM OK? 
BEQ 70$ * VES. 
AL HRDERR RLY2DE,RLXYE, 3; NO. 
: ENDSEG yp KKKK KEK KKK KKK KKK KKK KKK << << END SEGMENT. 
RLMXIT: COMEND RLMOD1 
JSR PC,LOOP ; REPEAT ‘TIL LOOPER EXPIRES. 
BCS 64$ 
BR 65$ 
64$: JMP RLMOD1 
65$: JSR PC, TSTEND ; PRINT ERROR SUMMARY, IF REQ'D. 
EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>> 


+ DISPLAY CODE. 


XINC: APNT,0,0 
STOPN 
XINCA: APNT,1!0,0 
RNLN 
XINCB: 000777 
STOPN 
DJMP ,XINCA 


X INCREMENT. 
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RUN=LENGTH 


eee TEST 22 SEQ 0155 
5839 057614 114000 000000 000000 X2INC: APNT,0,0 : &2 INCREMENT. 
5840 057622 173000 ST 
5841 057624 114000 040000 000009 X2INCA: APNT,1!0,0 
5842 057632 144100 RNLN! DBLPIX 

057634 000777 X2INCB: 000777 
5844 057636 173000 TOPN 
3845 057640 160000 057624 DUMP, X2INCA 
5847 057644 114000 000000 000000 YuP: APNT,0,0 : Y UP. 
5848 057652 144000 000377 RNLN, 377 
3849 057656 173000 STOPN 
5851 057660 114000 000000 000002 YDN: APNT,0,2 : Y DOWN. 
5852 057666 144040 000377 RNLN! YDOWN, 377 
3855 057672 173000 STOPN 
5855 057674 114000 000000 000000 yY2uUP:  APNT,0,0 : Y SKIP UP. 
5856 057702 144400 000377 RNLN!RLSKIP, 377 
3857 057706 173000 STOPN 
5859 057710 114000 000000 000004 Y2DN:  APNT,0,4 : Y SKIP DOWN. 
5860 057716 144440 000377 RNLN'RLSKIP! YDOWN, 377 
3861 057722 173000 STOPN 
5863 057724 END. TEST 


DERE ISI IID OIC IIIISIIISISIIIDIDIOIUICIIIUIOISISIUIIIOIDIOITICIOIEITITIOIEITICI IOI OTIS IT III TIN 
A 

3* END TEST 22 
° 
° 


rrr T Terre TC CCPC CCC CCCACCACC CCAP eee e PP ee PCCP CPCS SCT PPP PPP RAR RAE! 
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eee TEST 23 CURSOR REGISTERS/SW1TCH/MATCH SEQ 0156 an 
5865 
ERR EREEEEEA REAR AEAAAAAAAAAA AAA AAA LAER R EES 
** 
:* BEGIN TEST 23 = CURSOR REGISTERS/SWITCH/MATCH 
* 
TEESE ESE IIISIEISIEIEIEIEISIEISIISII ISIS OCT ITI II IIIA II III III 
: (ITERATION COUNT = 3.) 
5866 ; 
5867 : THIS TEST, USING THE LOADABLE CURSOR POSITION REGISTERS AND ''SOFT*’ SWITCH, 
5868 > PERFORMS THE FOLLOWING CHECKS ON THE CURSOR REGISTERS, JOYSTICK SWITCH, AND 
a + CURSOR MATCH AND ASSOCIATED LOGIC FOR EACH AVAILABLE SYNC GENERATOR CHANNEL : 
( PY 
5871 + (1) WRITE/READ TEST OF THE CURSOR POSITION REGISTERS USING DATA OF ALL _1°S 
5872 : AND ALL 0'S, USING PROGRAMMED I/0 (VIA DxR AND DYR) TO CHECK FOR STUCK 
r= 3h 2 O'S, STUCK 1°S AND DUAL ADDRESSING. 
5875 + (2) WRITE/READ TEST OF THE CURSOR POSITION REGISTERS VIA THE DISPLAY FILE 
5876. : INSTRUCTION LDCP (LOAD CURSOR POSITION) AND CURD (CURSOR READ), USING 
5877 : AN INCREMENTING COUNT PATTERN ON THE X POSITION (0 - 3776) AND A 
Pgh : DECREMENTING COUNT PATTERN ON THE Y POSITION (3776 - 0). 
5880 + (3) WRITE/READ TEST OF THE SWITCH ENABLE, MATCH ENABLE, AND CROSSHAIR 
rd] ; INTENSITY ENABLE BITS USING PROGRAMMED I/0 TO SET AND CLEAR ALL BITS. 
5883 + (4) WRITE/READ TEST OF THE ENABLE BITS VIA DISPLAY FILE INSTRUCTION 
5884 ; LDJSS (LOAD JOYSTICK STATUS), USING ALL COMBINATIONS OF LOAD-ENABLES 
rods ; AND DATA. 
5887 + (5) SET THE SWITCH ENABLE AND MATCH ENABLE BITS, THEN PERFORM A WRITE TO 
5888 : THE JOYSTICK STATUS REGISTER OF ANOTHER CHANNEL WITH DATA CONF IGURED 
5889 : TO SET THE ENABLE BITS: VERIFY THAT THE ENABLES OF THE CHANNEL UNDER 
5890 : TEST WERE CLEARED. FAILURE HERE INDICATES A FAULTY CHANNEL ADDRESS 
ra ; DECODER IN THE SYNC CHANNEL UNDER TEST. 
4 | + (6) TEST OPERATION OF THE JOYSTICK SWITCH INTERRUFT. 
5895 : (7) TEST OPERATION OF THE CURSOR MATCH INTERRUPT. FLOATING 1'S AND 0°S 
5896 : PATTERNS ARE USED IN THE CURSOR X AND Y POSITIONS TO VERIFY THE A | 
5897 : MATCH OCCURS ON THE SELECTED POINT WHILE DRAWING A VECTOR THROUGH IT, 
5898 : AND THAT A MATCH DOES NOT OCCUR WHILE DRAWING VECTORS AROUND THE 
ro 444 : SELECTED POINT PARALLEL TO THE X AND Y AXES. 
5 ° 


901 
5902 060014 005737 002502 
5903 060020 4 

5904 060022 000137 064660 


TST DPUMOD ; DPU-MODE ONLY? 
BEQ CSMTST ; BR IF NOT ~~ OK TO EXECUTE. 
JMP CSMXIT ; YES -- JUST GO TO EXIT. 


———————_———_ cm --—re ee 


| 


eee TEST 23 CURSOR REGISTERS/SWI1TCH/MATCH 


5906 
5907 060026 CSMTST: COMBEG 
060026 004737 027702 JSR PC, TSTGO s TITLE. 
060032 004737 026074 JSR PC ,DPRESET ; DO SOF T INIT 
5908 060036 004737 030414 1$: JSR PC, CONFIG $ IDENTIFY THE AVAILABLE SYNC CHANNELS. 
5909 060042 737 027054 JSR PC.LUMIN 
5910 060046 005037 065002 CSMITR: CLR. CSCHAN : START TESTING AT CHANNEL 
5911 060052 012737 065014 022300 CSMLOOP: MOV #PRSYCH,EXTA : SET UP TO PRINT CHANNEL NUMBER ON E 
5912 060060 004737 026074 JSR PC, DPRESET : DO SOFT INITIALIZE & CHECK REGISTERS. 
013762 065002 MOV CSCHAN, R2 : GET CHANNEL NUMBER INTO R2 
5914 060070 006302 ASL Ro? ; AND MAKE IT A WORD OFFSET. 
5915 060072 005762 003270 TST SYCTAB(R2) $ 1S THERE A MODULE HERE? 
5916 060076 001002 BNE 1$ ; BR IF YES. 
5917 060100 000137 064620 JMP CSMNE XT : IF NOT, GO SELECT WEXT CHANNEL. 
5918 060104 006302 1$ ASL is 3; SHIFT iT Le *T 5 AORE TIMES TO GET 
5919 060106 006302 ASL R2 
5920 060110 006302 ASL R2 
5921 060112 006302 ASL R2 
5922 060114 006302 ASL R2 : ... CHANNEL NUMBER INTO BITS <7:6> 
5923 060116 010237 065004 MOV R2,CSCH.6 ; STORE IT FOR URE USE. 
122 006302 ASL R2 : SHIFT IT LEFT 2 MORE TIMES TO GET 
5925 060124 006302 ASL R2 3 «ee IT INTO 9:8> 
6 060126 010237 065006 MOV R2,CSCH.8 ; STORE IT FOR 
5927 060132 006302 ASL R2 ; SHIFT LEFT 3 
5928 060134 006302 ASL R2 2 aan OO GET 2 
5929 060136 006302 ASL R2 3 CHANNEL L NUMBER INTO BITS <12:11>, 
5930 060140 010237 065010 MOV R2,CSCH.11 : AND STORE IT FOR FUTURE USE. 
5931 060144 112737 000000 026106 MOVB #0, INTMASK ; DON'T EXPECT ANY INTERRUPT. 
rats 060152 004737 026114 JSR PC, ENAINT : BUT LOOK FOR BAD ONES 
rat of :WRITE 0°S INTO BOTH CURSOR REGISTERS AND VERIFY THAT ALL O'S ARE RETURNED. 
5936 060156 CSMT1: BGNSEG 5 <<KKKKKK <<< BEGIN SEGMENT 
5937 060160 012701 100000 MOV #B1T15,R1 : EXPECT CURSOR X = t (WITH FLAG SET) 
5938 060164 010103 MOV R1,R3 : iy: FOR CURSOR Y 
5939 060166 013705 065012 MOV CSRETRY, RS s SET uP RS AS RETRY COUNTER ;a@aaR 
5940 060172 1$: BISW3 CSCH.11, meRTCPX!0, @DXR ; WRITE CURSOR X TO 0. 
060172 012746 140000 MOV MWRTCPX‘O, -(SP) 
060176 053716 065010 BIS CSCH. 11, (SP) . 
060202 012677 122630 MOV (SP)+,@DXR 
5941 060206 004737 027454 JSR PC,WAI TF : WAIT FOR READY. 
5942 060212 BISW3 CSCH.11,4WRTCPY!O0,a@DYR ; “WRITE CURSOR Y TO 0. 
060212 012746 140000 MOV HWRTCPY!0,-(SP) 
060216 053716 065010 BIS CSCH.11, (SP) 
060222 012677 122612 MOV (SP)+,aDYR ; 
5943 060226 004737 065336 JSR PC,GETCURS - 3 READ CURSOR GET DXR.DYR INTO R2,R4 
5944 060232 020102 CMP R1,R2 3; CHECK DXR (X=CURSOR) 
5945 060234 001002 BNE 2$ ; BR IF ERROR 
5946 060236 020304 CMP R3,R4 ; CHECK Ay (Y=CURSOR) 
5947 060240 001412 BEQ 3$ ; BR IF 
5948 060242 005305 2$: DEC RS : BF CREMENT THE RETRY COUNTER ;aaaR 
5949 060244 100352 BPL 1$ : GO TRY AGAIN IF NOT NEGATIVE ;aaaR 
5950 060246 HRDERR CRWRZ,RLXYE ; REPORT THE ERROR. 
5951 060266 3$: ENDSEG : >>>>>>>5>>>>END SEGMENT 





—- ——— 
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SEQ 0157 





as< 


. 


Fr? 


eee TEST 23 


5 
5956 060270 
5957 060272 
5958 060276 
5959 060300 
5960 060304 
304 


5968 54 
5969 060356 
5970 060360 
5971 060400 


012701 
010103 
013705 


012746 
053716 
012677 
004737 


012746 


103776 
065012 
143776 


027454 


143776 
065010 
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CURSOR REGISTERS/SWITCH/MATCH 


SEQ 0158 


;WRITE 1°S INTO BOTH CURSOR REGISTERS AND VERIFY THAT ALL 1°S ARE RETURNED. 


CSMT2: 


1$: 


2$: 


3$: 


BGNSEG 


HRDERR 
ENDSEG 





$SS<<<<<<<<<<BEGIN SEGMENT 
#8115!*03776, eet EXPECT CURSOR X = 
R1,R3 ; DITTO FOR CURSOR Y 
CSRETRY.R 


R5 

CSCH.11 :HuRTCPX!*03776, @DXR ; WRITE CURSOR X TO 3776. 
#WRTCPX'*03776,-(SP 

CSCH.11, (SP) 

(SP)+, aDxR 

PC WAI TF WAIT 
CSCH.11 Aa es abyR ; 
#WRTCPY !*03776,-(SP) 

CSCH.11, (SP) 


3776 (WITH FLAG SET) 


FOR READY. 
WRITE CURSOR Y TO 3776. 


(SP)+,aDYR 
PC,GETCURS ; READ eel GET DXR,DYR INTO R2,R4 
R1,R2 ; CHECK DXR (X=CURSOR) 
$ ; BR_IF ERROR 
R3,R4 ; CHECK DYR (Y=CURSOR) 
3$ ; BR IF OK, 
R5 ; DECREMENT THE RETRY COUNTER ;aaaR 
1$ > GO TRY AGAIN IF NOT NEGATIVE ;aa@aR 
CRWRO,RLXYE ; REPORT THE ERROR. 


y>>>>>>>>>>>>END SEGMENT 


s< 


Beas 


— ES 
a 


5975 
5976 060402 
977 060406 


5984 060444 


5994 

5995 060516 
5996 060522 
5997 060524 
5998 060526 
5999 060532 
6000 060534 


CURSOR REGISTERS/ SWI TCH/MATCH 


012701 
012703 


012705 
053705 


013700 


000733 


100000 
103776 
140000 
065010 


065012 


122400 
027454 


003776 


100000 


D 13 
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wee TEST 23 


:CHECK DUAL ADDRESSING == VERIFY THAT Y NOT CHANGED BY WRITING X. 


CSMT3: 


1$: 
10$: 


2$: 


3$: 


4$: 


MOV 
MOV 
BISwW3 
MOV 


HRDERR 


#BIT 


#1115) 905776, R3 ; 


CSCH.11,4WRTCPX, R 
#WRT 


CPX>R5 
CSCH.11,R5 


CSRETRY,RO 

R5, ve abYR 

R3,~(SP 

R5, (SP). 
(SP)+,aDYR 
PC WAI TF 

“he Ril, a 


R5, (SP) 


(SP) +, aDXR 
PC. GETCURS 


R3,R4 

3$ 

RO 

10$ 

CRDAX ,RLXYE 


; EXPECT CURSOR X TO BE * 
rt CURSOR Y TO BE ALL 1°'S 
; SET UP WRITE CURSOR W7 CHANNEL 


3 <K<KKKKK<KK<<<<BEGIN SEGMENT 
aaaR 


LOAD CURSOR Y WITH A PATTERN. 


WAIT FOR STOP. 
LOAD OPPOSITE PATTERN INTO CURSOR X. 


; ; GET THE CURSOR INTO Re & R4. 


CHECK DXR (X=CURSOR) 
: BR IF ERROR 
Ee ae DYR (Y-CURSOR) 


; BR OK. 
: DECREMENT THE RETRY COUNTER ;aaaR 


; GO TRY AGAIN IF NOT NEGATIVE” ;@aaR 


REPORT THE ERROR. 


«>>>>>>25>>>>END SEGMENT 


#*03776,R1 
4$ 


R3,R1 
#B1T15,R3 
1$ 


E 


; DID WE WRITE 1° 


S INTO X YET? 
; BR IF YES, SO we RE DONE. 
NO, SO SWAP PATTERNS. 

SET UP TO WRITE Y TO 0. 


: [OOP BACK TO DO IT. 


SEQ 0159 


Ses ee 


—_—— 


| 
! 
| 
| 
| 
' 
| 


_ eee TEST 23 


012701 
012703 


012705 
053705 


013700 
010146 


100356 
032703 
04 


000733 


103776 
100000 
140000 
065010 


065012 


122244 
027454 


122232 
065336 


003776 


100000 
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CHECK DUAL ADDRESSING == VERIFY THAT X NOT CHANGED BY WRITING Y. 


CSMI4: 


1$: 
10$: 


2$: 


3$: 


4$: 


MOV 
MOV 
BI Sw3 
MOV 


BPL 
HRDERR 


#81115: "03776, R1 


#B1T15!0,R3 


CSCH.11,#WRTCPX, RS; 


#WRTCPX {RS 
CSCH.11,R5 


; EXPECT han’ x TO BE ALL 1°S 
wEX XPECT CURSOR Y TO BE 0 
SET UP WRITE CURSOR W/ CHANNEL 


g<KKKKKKKKK<<<BEGIN SEGMENT 


CSRETRY RO 
R5,R1,aDXR 
R1,-(SP) 


PC,GETCURS 


2$ 
R3,R4 
3$ 


RO 
10$ 
CRDAY ,RLXYE 


aa 
; LOAD CURSOR X WITH A PATTERN. 


LOAD OPPOSITE PATTERN INTO CURSOR Y. 


; GET THE — INTO R2 & R4. 
CHECK DXR (X=CURSOR) 
BR IF ERROR 
CHECK DYR (¥-CURSOR) 


BR IF OK. 

DECREMENT THE RETRY COUNTER ;aaaR 
GO TRY AGAIN IF NOT NEGATIVE ;aaaR 
REPORT THE ERROR. 


= >>>>>>5>>>>END SEGMENT 


#*03776,R3 
4$ 


R1,R3 
#B1T15,R1 
1$ 


; DID WE WRITE 1° 
; BR 


S_ INTO Y YET? 
IF YES, SO we RE DONE. 
; NO. SO SWAP PATTERNS. 
.. SET UP TO WRITE X TO O. 


; LOOP BACK TO DO IT. 


SEQ 0160 


VSV11/VS11_<= GRAPHIC S 


TEST 23 


6054 061024 
6055 
6056 061026 


CURSOR 


005001 
012703 


012746 
053716 
012637 


012746 
053716 
012637 
010137 


010337 
013705 


012777 
004737 


001330 


D< 


m> 


100002 
100002 
003776 


F 13 
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RS/SWITCH/MATCH 


SEQ 0161 


: DO WRITE/READ TEST USING DISPLAY FILE. 


CSMT5: 


2s: 
122062 


3$: 


30$: 


CLR 
MOV 
BI Sw3 
MOV 


R1 : INIT THE X PATTERN TO 0 
#°03776,R3 INIT THE ¥ PATTERN TO AL L 1°S 
CsCH.6. #LOCP, .CSMF1A ; SET UP THE DISPL#Y FILE 
CSCH.6, (SP) 

(SP)+,CSMFIA 

CSCH.8.4CURD,CSMF1B ; ... BY [NSERTING THE CHANNEL. 
#CURD ,-(SP) 

CSCH.8, (SP) 

(SP) +, CSMF 18 
R1,CSMF1A+2 ; INSERT X COORD. TO BE WRITTEN 
R3,CSMF1A+4 zs... AND THE Y COORDINATE. 
CSRETRY,RS 

pK KKK KKK <<< <BEGIN SEGMENT 

ACSMF 1A : EXECUTE LOAD THEN READ OF CURSOR. 
#CSMFIA,aDPC =: START THE DPU. 
PC WAI TF : WAIT FOR DISPLAY STOP. 
#BiT15,R1 : EXPECT THE CURSOR FLAG BIT IN DXxR 
#B1T15_R3 : 22. AND DYR. 
PC ,RDDXY * GET MASKED DXR AND DYR INTO R2 AND R4. 
R1,R2 + CHECK DXR FOR X CURSOR. 

3$ * BR IF INCORRECT. 

R3,RG ; CHECK DYR FOR Y CURSOR. 

4$ + BR IF OK. 
BS 

CRWRE ,RLXYE ERROR <= DXR OR DYR WRITE/READ ERROR. 

= >>>>>>>5>5>>END SEGMENT 

#2'BIT15,R1 : INCREMENT THE X PATTERN. 
#2'BIT15.R3 : DECREMENT THE Y PATTERN. 
#°03776.R1 * DID WE INCREMENT X AROUND TO 0? 
1$ ‘ LOOP BACK IF NO. 


VI 


SS 
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VSV11/VS11_ <= GRAPHIC SYS. DIA 
eee TEST 23 CURSOR REGISTERS/SWITCH/MATCH SEQ 0162 a 
6062 ? | 
6063 ; #*® SPACE HERE FOR TESTING GENERAL DUAL ADDRESSING (ALL DBUS CODES & CHANNELS) 
6065 : VERIFY THAT THE SWITCH, MATCH AND CROSSHAIR ENABLES CAN BE CLEARED TO 0°S. 
6067 061044 CSMT6: BGNSEG i <£KKKKKKKK<KKBEGIN SEGMENT 
6068 061046 004737 026176 JSR PC, DSBINT DISABLE INTERRUPTS 
9 061052 012701 100000 MOV #BiT15, R1 : EXPECT " TO BE 0 
6070 061056 010103 MOV R1,R3 DITTO. FOR DYR. 
6071 061060 BISW3  CS<H. 8, wu JSS!*077, BOXR FIRST SET ALL ENABLES. 
061060 012746 042077 MOV #wJSS!*077, -(SP) 
061064 053716 065006 BIS CSCH.8, (SP) 
061070 012677 121742 MOV (SP)+, @DXR 


012746 042052 MOV #WwJSS'BITS!BIT3!BIT1,-(SP) 
053716 065006 BIS CSCH.8, (SP) 
012677 121722 MOV (SP) +, @DXR 
013705 065012 MOV CSRETRY,R5 ; @@aR 
004737 065404 1$: JSR PC,GETJSE ; GET THE — INTO R2 AND R4. 
020102 CMP R1,Re ; CHECK DXR (X=CURSOR) 
2$ ; BR_IF ERROR 
; CHECK DYR (Y-CURSOR) 
BR IF OK. 


020304 CMP . 

005305 2$: DEC R5 ; DECREMENT THE RETRY COUNTER ;aa@aR 
BPL 1$ ; GO TRY AGAIN IF NOT NEGATIVE ;aaaR 

HRDERR JSEWRZ,RLXYE REPORT THE ERROR. 

3$: ENDSEG [>>5>>>>5>>>END SEGMENT 


84 
6085 : VERIFY THAT THE SWITCH, MATCH AND CROSSHAIR ENABLES CAN BE SET TO 1'S. 


86 
6087 061162 CSMT7: BGNSEG 1 <€<<€ <<< <<< <<BEGIN SEGMENT 
6088 061164 012701 114000 MOV #BITIS'JSSIES'JSMIES,R1 ; EXPECT DXR TO HAVE SW & MAT SET. 
6089 061170 012703 110000 MOV MBITIS'CHIE.R3 ; EXPECT DYR TO HAVE CROSSHAIR ENABLE SET. 
6090 061174 BI Sw3 CSCH.8, #WJSS'BITS'!BIT3'BITI, @DXR ; FIRST CLEAR THEM. 
061174 012746 042052 MOV #WJSS'BITS'BIT3!BIT1, -(SP) 
061200 053716 065006 BIS CSCH.8, (SP) 
061204 012677 121626 MOV (SP)+, ADxR 
6091 061210 004737 027454 JSR PC,WAIT : WAIT FOR READY. 
6092 061214 BISw3 CSCH. 8, issSS*077, @DXR ; THEN SET THEM. 
061214 012746 042077 MOV JSS!4077,- 
061220 053716 065006 BIS CStH. 8, (SP) 
061224 012677 121606 MOV (SP) +,aDXR 
6093 061230 013705 065012 MOV CSRETRY,R5 ; aaaR 
6094 061234 004737 065404 1$: JSR PC,GETJSE : GET THE SORES INTO R2 AND 84. 
6095 061240 sap CMP oi ome 


6097 061244 020304 CMP R3,R4 
6098 061246 001412 BEQ 3$ IF 

6099 061250 005305 23: DEC R5 DECREMENT THE RETRY COUNTER ;aa@aR 
6100 061252 100370 BPL 1$ GO TRY AGAIN IF NOT NEGATIVE :aaaR 
6101 061254 HRDERR JS<WRO,RLXVE REPORT THE ERROR. 

6102 061274 3$: ENDSEG | >>>>>>>5>>>>END SEGMENT 


ted ed al cca ai ee ae a a ca ce ed 
= 
* 
_ 
NM 
@ 
mn 
© 
. . . oF . . 


S 
SESRBRRBREERR 
SEKXRYSRRSESRS 

8 

E 

g 


; CHECK DXR (X=CURSOR) 

; BR IF ERROR 

; CHECK DYR (Y-CURSOR? 
BR OK. 


| 
| 
6072 061074 004737 027454 JSR PC WAI TF ; WAIT FOR READY. 
6073 061100 BISW3 CSCH.8, Wu JSS 18115 :BIT3/B111, @DXR ; THEN CLEAR THEM. 


ss 
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eee TEST 23 CURSOR REGISTERS/SwITCH/MATCH SEQ 0163 
6104 
6105 : TEST ENABLES WITH GENERAL WRITE/READ FROM DISPLAY FILE. 
6107 061276 112737 000000 026106 CSMT8: MOVB #0, INTMASK 
6108 961304 004737 026114 Jsr PC,ENAINT - ENABLE INTERRUPTS, TO FIND BAD ONES. 
6109 061310 013704 065006 CSCH.8,R4 > GET A COPY OF THE CHANNEL #, FOR INSERTING. 
6110 061314 By sw3 R4,ACUIOFF !CUOFF.CSMF2A ; SET UP TO CLEAR ALL. 
061314 012746 146052 MOV #CUIOFF !CUOFF ,-(SP) 
061320 050416 BIS R4, (SP) 
061322 012637 065054 MOV (S?)+, CSMF 2A 
6111 061326 BISW3 R4,ALDJSS,CSMF 2B : SET UP TG GENERAL WRITE. 
061326 012746 146000 MOV #LDUSS,-(SP) 
061332 050416 BIS R4, (SP) 
061334 012637 065056 MOV (SP)+, CSMF 2B 
6112 061340 BISW3 R4,ACURD,CSMF2C ; SET UP FOR READ. 
061340 012746 146100 MOV #CURD ,~(SP) 
061344 050416 BIS R4, (SP) 
061346 012637 065060 MOV (SP) +, CSMF 2C 
6113 061352 BISW3 R4,ALDJSS!*077, CSF 20 : SET UP TO SET ALL. 
0661352 012746 146077 MOV #LDJSS!*077,-(SP) 
061356 050416 BIS R4, (SP) 
6116 061360 0126357 065064 MOV (SP) +,CSMF 2D 
6115 061364 1$: BGNSEG 3 <K€ <<< <<< <<< <BEGIN SEGMENT 
6116 061366 012701 100000 MOV #BIT15,R1 : ASSUME JSSIE AND JSMIE WILL BE 0. 
6117 061372 010103 MOV R1,R3 : ASSUME CHIE WILL BE 0. 
6118 061374 013705 065056 MOV CSMF 2B,R5 : GET A COPY OF THE WRITTEN BITS. 
6119 061400 032705 000002 BIT HISWE RS : ENABLED TO WRITE SWITCH ENABLE? 
6120 061404 001405 BEQ 2$ : BR IF NO -- LEAVE EXPECTED ALONE. 
6121 061406 032705 000001 BIT #JSWD,RS ; WRITE TO 1? 
6122 061412 001402 BEQ $ : BR IF NO -= LEAVE AT 0. 
6123 061414 052701 004000 BIS HISSIES,R1 : YES -- SET EXPECTED STATUS. 
6124 061420 2$: 
6125 061420 032705 000010 BIT #IMWE RS : ENABLED TO WRITE MATCH ENABLE? 
6126 061424 001405 BEQ 3$ : BR IF NO -- LEAVE EXPECTED ALONE. 
6127 061426 032705 000004 BIT #JMWD RS ; WRITE TO 1? 
6128 061432 001402 BEQ 3$ : BR IF NO -= LEAVE AT 0. 
6129 061434 052701 010000 BIS #JSMIES,R1 : YES -- SET EXPECTED STATUS. 
6130 061440 3$: 
6131 061440 032705 000040 BIT MICWE RS : ENABLED TO WRITE CROSSHAIR ENABLE? 
6132 061444 001405 BEQ 4$ : BR IF NO -- LEAVE EXPECTED ALONE. 
6133 061446 032705 000020 BIT #JCWD,RS : WRITE TO 1? 
6134 061452 001402 BEQ 4 : BR IF NO -- LEAVE AT O. 
ois 061454 052703 010000 BIS ACHIE,R3 > YES -- SET EXPECTED STATUS. 
4h 4 061460 013700 065012 4$: MOV CSRETRY,RO ; daaR 
6139 061464 40$: DPSTART #CSMF2A : EXECUTE CLEAR ALL, THEN GENERAL WRITE. 
061464 012777 065054 121340 MOV ACSMF 2A, aDPC : START THE DPU. 
061472 004737 027454 JSR PC .WAITF : WAIT FOR DISPLAY STOP. 
6140 061476 004737 065430 JSR PC,RDJSE : GET DXR, DYR INTO R2, R4. 
6141 061502 020102 CMP R1,R2 : CHECK DXR (X=CURSOR) 
6142 061504 001002 BNE ; BR IF ERROR 
6143 061506 020304 CMP R3,R4 : CHECK DYR (Y=CURSOR) 
6144 061510 001412 BEQ 43$ > BR IF Ok. 
6145 061512 005300 41$: DEC RO * DECREMENT THE RETRY COUNTER ;aaaR 
6146 061514 100363 BPL 40$ > GO TRY AGAIN IF NOT NEGATIVE ;aaaR 


I 13 
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; CHECK DXR (X-CURSOR) 


VSV11/VS11_== GRAPHIC SYS. DIA 
eee TEST 23 CURSOR REGISTERS/Swi TCH/MATCH 

6147 061516 HRDERR CEZWE,RLXYE 

6148 061536 438: 

6149 061536 012701 114000 Mov 

6150 061542 012703 110000 MoV #BIT15iCHIE,R 

6152 061546 032705 000002 BIT #ISWE ,R5 

6153 061552 001405 BEQ 5$ 

6154 061554 032705 000001 BIT #JSWD RS 

6155 061560 001002 BNE 

6156 061562 042701 004000 BIC #ISSIES,R1 

6158 061566 5$: 

6159 061566 032705 000010 BIT #IMWE RS 

6160 061572 001405 BEQ 6$ 

6161 061574 032705 000004 BIT #JMWD RS 

6162 061600 001002 BNE 6$ 

6163 061602 042701 010000 BIC #JSMIESR1 

6164 061606 6S: 

6165 061606 032705 000040 BIT HICWE RS 

6166 061612 001407 BEQ 

6167 061614 032705 000020 BIT #ICWD RS 

6168 061620 001 BNE 7$ 

6169 061622 042703 010000 BIC #CHIE ,R3 

6170 061626 013700 065012 MOV CSRETRY,RO 

6171 061632 7$: 

6172 061632 DPCONT ; RESTART, 
061632 052777 000001 121172 BIS #8110, aDPC : 
061640 004737 027454 JSR PC WAI TF : 

6173 061644 004737 027454 JSR PC. WAITF 

6174 061650 737 065430 “SR PC -RDJSE 

6175 061654 020102 CMP R1.R2 : 

6176 061656 001002 BNE 72$ : 

6177 061 020304 CMP R3,R4 : 

6178 061662 001412 BEQ 73$ : 

6179 061664 005309 72$: DEC RO ; 

180 061666 100361 BPL 7$ : 

6181 061670 HRDERR CESWE ,PLXYE : 

6183 061710 73$:  ENDSEG 

6184 061712 005237 065056 INC CSMF 2B : 

6185 061716 032737 000077 065056 BIT #*077, CSMF 2B 

6186 061724 001402 BEQ 8$ 

6187 061726 000137 061364 JMP 1$ 

6188 061732 8$: 


; REPORT THE ERROR. 
WBITIS!JSSIES!JSMIES,R1 ; ASSUME SWITCH & MATCH ENABLES ARE 1. 


; ASSUME CROSSHAIR ENABLE IS 1. 


; ENABLED TO WRITE SWITCH ENABLE? 
: BR IF NO == LEAVE EXPECTED ALONE. 
; WRITE TO 0? 

; BR IF NO -- LEAVE AT 1. 

; YES -- CLEAR EAPECTED STATUS. 


: ENABLED TO WRITE MATCH ENABLE? 
; BR IF NO == LEAVE EXPECTED ALONE. 
; WRITE TO 0? 

; BR IF NO -=- LEAVE A 

; YES -- CLEAR SPECTED. STATUS. 


; ENABLED TO WRITE CROSSHAIR ENABLE? 
; BR IF NO -- LEAVE EXPECTED ALONE. 
; WRITE TO 0? 

; BR IF NO -= LEAVE AT 1. 

YES =~ CLEAR EXPECTED STATUS. 

aaaR 


TO SET ALL, THEN DO GENERAL WRITE. 
CONTINUE THE DPU. 


; WAIT FOR DISPLAY STOP. 


; WAIT FOR DONE. 
GET DXR, DYR INTC R2, R4. 


BR IF ERROR 
aso DYR (Y-CURSOR) 


BR IF OK. 
DECREMENT THE RETRY COUNTER ;aa@aR 
GO TRY AGAIN IF NOT NEGATIVE ;aaaR 


: REPORT THE ERROR. 
y>>>>>>>>>>>>END SEGMENT 


ominaegs | THE LDJSS WRITE DATA. 
DONE ALL COMBOS? 
; BR TO EXIT IF YES. 
+ NO, SO LOOP BACK FOR ANOTHER ROUND. 


SEQ 0164 


6193 


6192 

6193 061732 
6194 061736 
6195 061742 
6196 

6197 061746 
6198 061752 
6199 061756 
6200 061762 
6201 

6202 061764 
6203 pel ee 


62 21 
6222 062106 


CURSOR REGISTERS/Swl TCH/MATCH 


004737 
105037 
013705 


100370) 


000137 


026074 
026106 
065006 


027454 
042017 


121016 
027454 
00000 


061746 


iSMT9: 


1$: 


10$: 


12$: 


13$: 


2$: 


J_13 
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; eh THAT WRITING Bs Bas JM ENABLES OF OTHER CHANNELS CLEARS ENABLES OF 


CHANNEL UNDER 
JSR PC .DPRESET : DO SOFT INITIALIZE. 
CLRB INTMASK 
MOV CSCH.8,R5 ; GET CHANNEL # IN R5<9:8> 
ADD #BITE.RS ; INCREMENT TARGET 7% 
BIC #@*C<BIT9'BIT8>,RS ; MASK THE CHANNEL FIELD 
CMP R5,C 8 ; BACK TO THE CHANNEL UNDER TEST? 
BEQ 2$ ; BR = YES. DONE 
BGNSEG 3 <<K<<K<<< <<< <BEGIN SEGMENT 
BI Sw3 CSCH.8, #WRTISS! JCWE ! JMWE ! SMD ° JSWE ! JSWD,@DXR ; SET ENABLES 
MOV MWRTISS | JCWE | IMWE ! JMWD ! JSWE ! JSWD,-(SP) 
BIS CSCH.8, (SP) 
MOV (SP)+, aDXxR 
JSR PC, WAITF 
BISw3 =RS, *AWRT JSS! JMWE | JMWD ! JSWE ! JSWD, @DXR 
MOV MWRT ISS! JMWE ! JMWD! JSWE ! JSWD, -(§P) 
BIS R5, (SP) 
MOV (SP)+,aDXR 
JSR PC ,WAI TF 
MOV #B1T15,R1 : EXPECT ENABLES TO BE CLEAR. 
MOV WBIT15,R3 
MOV CSRETRY, RO : aaaR 
JSR PC, GETUSE . LOAD R2 & R4 W/ DXR, DYR. 
CMP R1.R2 ; CHECK DXR (X=CURSOR) 
BNE 12$ : BR IF ERROR 
CMP R3,R4 : CHECK DYR (Y=CURSOR) 
BEQ 13$ ; BR IF OK. 
DEC RO ; DECREMENT THE RETRr COUNTER ;aaaR 
BPL 10$ : GO TRY AGAIN IF NOT NEGATIVE ;a@aaR 
HRDERR JENOCL,RLXYE ; REPORT THE ERROR. 
ENDSEG y>>>>>>>>>>>>END SEGMEN 
JMP 1$ ; LOOP are TO TRY ANOTHER TARGET. 


SEQ 0165 ” 


cor — ee —— 


| 
! 
| 
| 
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216 
6253 062224 


: 


wee TEST 23 CURSOR REGISTERS/SwWITCH/MATCH 
6224 
6225 ; 
once TEST THE SOFT JOYSTICK SWITCH INTERRUPT OPERATION: 
6228 > (1) CLEAR SWITCH ENABLE, SET SWITCH, SEE THAT NO INTERRUPT PENDING. 
6229 > (2) CLEAR SWITCH, SET SWITCH ENABLE, SEE THAT NO INTERRUPT PENDING. 
6230 : (3) SET BOTH SWITCH ENABLE AND SWITCH, SEE THAT FLAGS SHOWS PENDING 
6231 5 INTERRUPT, 
rats : (4) REPEAT (3), BUT ALLOW INTERRUPT AND CHECK RESUI.TS 
6234 : (5) REPEAT (4) BUT FROM DISPLAY FILE, SEE THAT SWITCH INTERRUPT STOPS 
6235 : PROCESSING AND GETS CURSOR. 
8539 
<s :(1) TEST THAT NO INTERRUPT REQUEST OCCURS WITH ENABLE CLEAR AND SWITCH SET. 
6240 062106 CSMT10: BGNSEG 3 <<< << <<<<<<<<BEGIN SEGMENT 
6241 062110 004737 026176 JSR PC,DSBINT : DISABLE INTERRUPTS. 
6242 062114 INI TDP : INITIALIZE THE DPU. 
062114 004737 025402 JSR PC,DPINIT : GO DO SOFT INIT, CHECK THE STATE. 
6243 062120 BISw3 CSCH.8,4WJSS'JSWE'O,aDXR ; CLEAR SWITCH ENABLE. 
062120 012746 042002 MOV #WJISS ! JSWE'0,-(SP) 
062124 053716 065006 BIS CSCH.8, (SP) 
062130 012677 120702 MOV (SP)+,aDXR 
6244 062134 004737 027454 JSR PC ,WAITF 
6245 062140 BISwW3 CSCH.8,4WECC!SWCHON,@DYR ; SET THE SWITCH. 
062140 012746 160002 MOV #WECC ! SWCHON,-(SP) 
062144 053716 065006 BIS CSCH.8, (SP) 
062150 012677 120664 MOV (SP)+,aDYR 
6246 062154 004737 027454 JSR PC, ,WAITF 
6247 062160 004737 023422 JSR PC, I] IRCHK : CHECK INTERNAL REGS FOR INIT STATE. 
6248 062164 1$: BISW3 CSCH.8,4WECC,.aDYR TURN OFF THE SWITCH 
062164 012746 160000 MOV MWECC,-—(SP) 
062170 053716 5006 BIS CSCH.8, (SP) 
062174 012677 120640 MOV (SP)+,aDYR 
6249 062200 004737 027454 _ JSR PC ,WAITF 
6250 062204 012777 040000 120624 MOV #GTJSSW,a@DXR sDISMISS INTR REQ, IF ANY 
6251 062212 737 027454 JSR PC ,WAITF 
6252 062216 WIDSRA #0,FLG :CLEAR PENDING INTERRUPT 
062 012777 000012 120610 0 #08*C17!'SETFLG, @DSR 


MOV 
ENDSEG :>>>>>>>>>>>>END SEGMENT 


SEQ 0166 


———_---——_- -- ---—— 


| 





6255 
Oc36 


6257 
oc8 062226 
6259 06 


062 
6261 062240 


6264 062274 
00 


304 
6267 062310 


CURSOR REGISTERS/SwW1ITCH/MATCH 


004737 
004737 
012746 
053716 
012677 
004737 


012746 


026176 
025402 


027454 
042003 
065006 


023422 
025402 


:(2) TEST THAT NO INTERRUPT REQUEST OCCURS WITH ENABLE SET AND SWITCH CLEAR. 
CSMT11: 


BGNSEG 


JS 
ENDSEG 


| VSV11/VS11_<= GRAPHIC SYS. DIAG MACRO M1113 29-JAN-81 17:22 PAGE bg" 
wee TEST 23 


3 KKK KKK <<< <BEGIN SEGMENT 
PC, DSBINT ; DISABLE og ety 


INITIALIZE T 
PC ,DPINIT : GO 
CSCH.8,#WECC!0,@DYR ; CLEAR THE SWITCH. 
#WECC!0,-(SP) 
CSCH.8, (SP) 


(SP) + ,@DYR 


PC,WAIT 
CSCH.8,MWJSS!JSWE!JSWD,@DXR ; SET SWITCH ENABLE. 
MWISS ! JSWE! JSWD,-(SP) 

CSCH.8, (SP) 
(SP) +, @DXR 
PC ,WAITF 
PC, 1] IRCHK 
PC,DPINIT ; GO DO SOFT a 
:>>>>>>>5>>>>END SEGMENT 


; HE DPU. 
DO SOFT INIT, CHECK THE STATE. 


| 
SEQ 0167 | 
| 


; CHECK INTERNAL REGS FOR INIT STATE. 
CHECK THE STATE. 



















wee TEST 23 


1 
6272 062312 
6273 062314 
062314 
6274 062520 
6275 062324 
062324 


062330 
062334 
6276 062340 
6277 062344 
062344 
062350 


062354 
6278 062360 
6279 062364 
6280 062370 

062370 


062376 
6281 
06 


06 
6282 062426 
6283 062426 


062436 
6284 062442 
6285 062446 


6286 

6287 062466 

6288 

6289 

6290 062500 
062500 

6291 062506 

6292 062512 

6293 062514 


CURSOR REGISTERS/ SWI TCH/MATCH 


004737 
004737 


012746 
053716 
012677 
004737 
012746 
053716 
012677 
004737 
012701 
012777 
017702 


020102 
001410 
012746 


004737 
012746 


012777 
004737 


004737 


025402 
026176 


042003 
065006 
120476 
027454 


160002 
065006 


000002 
120432 


160000 
065006 
120376 
027454 


04000 
027454 


000012 
023422 


026074 


120436 


120342 


120326 


3(3) SET SWITCH 
CSMT12: BGNSEG 
INI TDP 


MOV 
IFERROR 
CMP 
BEQ 
HRDERR 


B1ISwW3 
MOV 


J 
23: — 


13 
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SEQ 0168 


AND ENABLE, SEE PENDING INTERRUPT 

3 <<<<€< <<< <<< <<BEGIN SEGMENT 
a ged ; GO DO SOFT INIT, CHECK THE STATE. 
ESthe 8 WSS! IME JS -@DXR ; ENABLE SWITCH INTERRUPT. 


CSCH.8, (SP) 
(SP)+,@DXR 


PC ,WAITF 

CSCH.8,AWECC! SWCHON, aDYR ; 
MWECC ! SWCHON, =(SP) 

CSCH.8, (SP) 

(SP)+, aDYR 


PC WAI TF 
#CHAR! JSLCKO!PINTRB!PVEC2, R1 ; EXPECT FLAGS TO SHOW PENDING. 
FLG,R2 READ THE FLAGS REGISTER INTO R2. 
#SELFLG,a@DSR ; READ FLG INTO R2 . 


@DSR,R2 
NOSWPI , EXPREC 
R1,R2 


TURN THE SWITCH ON. 


3; OK? 
64$ s VES. 
NOSWPI,EXPREC, ; NO. 


CSCH.8, = aDYR ; TURN OFF THE SWITCH. 
AMWECC,- (SP) 
CSCH.8, (SP) 
(SP)+,aDYR 
PC ,WAITF 
CSCH.8, mee ne @DXR 
HWISS ! JSWE!0,-(SP) 
CSCH.8, (SP) 
(SP)+,@DXR 
PC ,WAITF 
AGTJSSW,a@aDXR 
ITF 


#0,FLG ; CLEAR THE FLAGS AND INTERRUPT. 

wOE"C7 SETFLG, aDSR 

PC, 1] IRCHK ; CHECK THE INTERNAL REGISTERS 
;>>>>>>>>>>>>END SEGMENT 

PC,DPRESET : DO SOFT INITIALIZE. 


;DISMISS INTR REQ, IF ANY 


acing ainmeapiitieneteaptimmmaninininnptatmmmmmaaiionin tplmmmmsie as 


VS 


—_—_—  _ L- - rrr 
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wee TEST 23 CURSOR REGISTERS/SwITCH/MATCH SEQ 0169 = 

6295 
o599 :(4) SET SWITCH AND ENABLE, CHECK FOR PROPER INTERRUPT. 
6298 062520 CSMT13: BGNSEG 1 <KKK KKK <<< << <BEGIN SEGMENT 
6299 062522 INI TDP 

062522 004737 025402 JSR PC,DPINIT 3; GO DO SOFT INIT, CHECK THE STATE. 
6300 062526 004737 026114 JSR PC ,ENAINT 
6301 062532 INTSET JSS 

062532 012737 177610 026106 MOV #°0177400! IOKCKIN! IOKJSS, INTMASK ; PRIME FLAG, EXPECT JSS 
6302 062540 BISW3 CSCH.8,#WJSS! JSWE!JSWD,aDXR : ENABLE SWITCH INTERRUPT. 

062540 012746 042003 MOV MWISS ! SWE! JSWD,-(SP) 

062544 053716 065006 BIS CSCH.8, (SP) 

062550 012677 120262 MOV (SP) +, a@DXR 
6303 062554 004737 027454 JSR PC ,WAITF 
6304 062560 BISW3 CSCH.8,4WECC! SWCHON,a@D‘% ; TURN THE SWITCH ON. 

062560 012746 160002 MOV AMWECC ! SWCHON, ~( SP) 

062564 053716 065006 BIS CSCH.8, (SP) 

062570 012677 120244 MOV (SP)+,aDYR 
6305 062574 004737 027454 JSR PC ,WAITF 
6306 062600 012702 000100 MOV #100,R2 
6307 062604 105737 026107 10$: TSTB INTFLAG ; DID WE INTERRUPT? 
6308 062610 100002 BPL 11$ ; BR IF YES. 
6309 062612 005302 DEC R2 
6310 062614 003373 BGT 10$ 
6311 062616 105737 026107 11$: TSTB INTFLAG ; DID WE GET GOOD INTERRUPT? 
6312 062622 001414 BEQ 2$ ; BR IF YES 
6313 062624 012701 062604 MOV #10$,R1 3; GET CPU PC. : 
6314 062630 HRDERR NOSWI,INTERR | 
ee 062650 000137 062654 JMP 3$ ; MIGHT AS WELL QUIT. 

i 

re 062654 2$: | 
6319 062654 3$: ENDSEG y>>>>>>>>>>>>END SEGMENT 


6320 062656 004737 026074 JSR PC,DPRESET ; DO SOFT INIT. 


pr a ee 





062664 
6327 062670 
6328 062674 

062674 

062700 

062704 
6329 062710 

062710 

062714 

062720 
6330 062724 

062724 

062734 
6331 062740 
6332 062746 

062746 

062754 
6333 062760 
6334 062764 
6335 062770 

062774 


6336 
6337 062776 
6338 063002 
6339 


6351 

6352 063136 
6353 063142 
6354 063144 


VSV11/VS11_== GRAPHIC 
eee TEST 23 


004737 
004737 


012746 
053716 
012637 
012746 
653716 
012637 


012746 


112737 
012777 


012701 


020227 
103412 
012701 


013701 
052701 


013703 


001410 


004737 
004737 


025402 
026114 


175000 
065004 
065072 
146013 
065006 
065100 
175402 
065004 
065102 
000377 


pete 
026107 
062760 
065114 


045106 


065074 
100000 


026176 
026074 


026107 
120056 


B14 
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CURSOR REGISTERS/SwWI TCH/MATCH 


:(5) CHECK SWITCH INTERRUPT OPERATICN FROM DISPLAY FILE. 
CSMT14: BGNSEG 
INI TDP 


2$: 


65$: 
64$: 


3$: 





V 
HRDERR 


CMP 
BLO 


MOV 
HRDERR 
BISwW3 
MO 


p << KKK KKK KKK BEGIN SEGMENT 
PC,DPINIT ; GO DO SOFT INIT, CHECK THE STATE. 
ENABLE INTERRUP 


PC ,ENAINT : TS. 
CSCH.6, ets -CSMF 3A ; SET UP DISPLAY FILE TO LOAD CURSOR, 


(SP)+,CSMF3A 

CSCH.8, acUls, CSMF 3B oe 
ACUIS,-(SP) 

CSCH.8, (SP) 

(SP) +, CSMF 38 

CSCH.6, ,ALDECC! SWCHON, .CSMF3C ; ... AND TURN ON 


AND SET SWITCH ENABLE 


ON SWITCH. 


(SP) +, CSMF 3C 
#*037¢ INTFLAG : PRIME THE INTERRUPT FLAG. 
ACSMF 3A : START THE D 
ACSMF3A,QDPC =: :~ START THE DPU. 

WAITF ; WAIT FOR DISPLAY Ustor: 


PC; WAITF : FOR STOP. 
aDPC Re : SAVE THE DPC. 
INTFLAG ; TEST FOR GOOD INTERRUPT. 
1$ BR IF GOOD. 
#.-16,R1 
NOSWI, INTERR 
R2,ACSMF 3D : DID THE DPC HIT THE STOPN? 
2$ + BR IF NO == OK 
ACSMF 3C+4,R1 * EXPECT A DPC PRIOR TO STOPN. 
SWNOHLT , EXPREC 
#B1T15,CSMF3A+2,R1 : EXPECT DXR TO HAVE X CURSOR. 
CSMF 3A+2,R1 
#B1T15,R1 
#B1115.CSMF3A+4,R3 : EXPECT DYR TO HAVE Y CURSOR. 
CSMF 3A+4,R3 
#B1T15,R3 
CSRETRY 
PC ,RDDXY : GET MASKED DXR, DYR INTO R2,R4. 
SWNOCU, RLXYE 
R1,R2 : 1ST ITEM OK? 
65$ ; NO. 
R3,R4 * 2ND ITEM OK? 
64$ : YES. 
SWNOCU,RLXYE, =: NO. 
PC,DSBINT 
3 >>>>>>>>>>>>END SEGMENT 
PC,DPRESET : DO SOFT INIT. 


SEQ 0170 


f——~- 2 


eee TEST 23 


063460 
6396 063462 


004737 
112737 
012746 
053716 
012637 
012746 
053716 
012637 
012746 
053716 
012637 


012746 


012777 
004737 
000405 
012777 
004737 


ronron 
N 
WG 
N 


737 


112737 


026074 
000000 
146076 
065006 


175402 
065004 
065156 
146152 
065006 


065116 
027454 


065132 
027454 


026114 
064670 
064670 


003230 
000002 
000004 
020004 
020002 
000002 


020002 
020004 


000200 


026106 


065264 
065302 
065320 
026106 
027700 


117514 


117500 


064666 


065172 


065264 
065302 
065320 


065264 


065302 
065320 


026106 


C1 
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CURSOR REGISTERS/SW1ITCH/MATCH 


SEQ 0171 


: VERIFY THE CURSOR MATCH OPERATION. 
CSMT15: JSR 
BGNSEG 


11$: 


1$: 


2$: 
3$: 


30$: 


4$: 


MOVB 
BISwW3 
MOV 
BIS 
MOV 
BISw3 
MOV 


BR 
DPSTART 
MO 


PC ,DPRESET 


DO SOFT — 


© KEKKKKKEKKKEBEGIN SEGMENT 


, INTMASK 
CSCH.8, haat . CSMF 4B 


CSCH.8, (SP) 
(SP) +, CSMF 4B 


; DON'T EXPECT INTERRUPTS 
; INSERT CHANNEL # IN FILE. 


CSCH.6, ot -CSMF4LC 


LC 
CSCH.6,ALDECC ! SWCHON, CSMF 4C 
#LDECC ! SWCHON, = (SP) 


CSCH.6, (SP) 
(SP) +, CSMF4C 


CSCH.8, SRS) Fe CSMF4J 
ACURD ! JSWE ! JMWE ! JCWE ,-(SP) 


SMF 4V 
#CSME AV -@DPC : 


SMF 4U : 
ACSMF 4U ,aDPC ; 
PC ,WAITF 


,DSBIN 
WIOKCKIN! IOKJSM, INTMASK ; 
++ Nia ,LOOPK ; ARE WE IN 


; ASSUME NON-INTERLACED POSITION 


SAY MATCH INTR OK, WE WILL CHECK. 
i N AN ODD-NUMBERED ITERATION? 


NO. 
YES --START THE SETUP FILE FOR VISUAL. 
START THE DPU. 

; WAIT FOR DISPLAY STOP. 


; START TO PUT MEMORIES IN WRITE-ONLY MODE. 


START THE DPU. 
WAIT FOR DISPLAY STOP. 


3 KKKKK KEK KEKE KEK KK KKK KK KKK ~END SEGMENT. 


PC ,ENAINT 


+ aren 
#B1T1,CSMF4Y 
30$ 


#4, CSMF4F +2 
wi 4, CSMF4G+2 
wMi2, ,CSMF4H+2 


#2,CSMF4F +2 
#M' 2, CSMF4G+2 
#M!4,CSMF4H+2 


; ENABLE INTERRUPTS. 
; = TABLE POINTER FOR Y * 


IF VES = 
; NO ~~ ARE WE ON AN ODD LINE? 
; BR IF YES -- CAN WRITE ABOVE, NOT BELOW 
; EVEN LINE == SETUP FOR Y+4. 
; «.. AND BACK DOWN BY 4 
; ... AND BELOW Y BY 2. 


: = toy ~~ SETUP FOR Y+2, 
AND BACK DOWN TO Y, 
> BUT DOWN TO Y~4. 


POSITION. 
: WE IN INTERLACED MODE? 


1 <K KKK KKK <<< <<BEGIN SEGMENT 


#IOKCKIN, INTMASK 


; SAY WE'LL CHECK UNEXP. INTR. 





r- 


wee TEST 
| 6397 063470 


tye pm 2 oS oe 
OCOOWOONAUSWI 
Nm 
* 


g EEFSFKAEFFEEF SF FFE 
¥ ® Sek SRS 
282888888 


CURSOR REGISTERS/ SWI TCH/MATCH 


013705 065012 MOV CSRETRY,RS 
013701 065170 MOV CSMF4X,R1 
013703 065172 MOV CSMF4Y.R 
052701 100000 BIS #B1T15.R1 
052703 100000 BIS #B1T15.R3 
012746 160000 MOV #WECC,-(SP) 
053716 065006 BIS CSCH.8, (SP) 
012677 117310 MOV (SP) +, aDYR 
004737 027454 JSR PC WAI TF 
112737 000377 026107 43$:  MOVB  #*0377, INTFLAG 
DPSTART #CSMF4D 
012777 065176 117262 MOV #CSMF 4D, DPC 
004737 027454 JSR PC ,WAI TF 
017702 117252 MOV aDPC ,R2 
105737 026107 1STB —_—INTFLAG 
002414 BLT 403$ 
010146 MOV RI, =(SP) 
012701 063552 MOV “14. ,R1 
HRDERR TAU INTERR 
012601 V (SP)+,R1 
403$: 
004737 065362 JSR PC,RDDXY 
020102 CMP R1_R2 
001002 BNE 4 
020304 CMP R3,R4 
001414 BEQ 45$ 
005305 44%: ——DEC RS 
100337 BPL 43$ 
HRDERR CRWRE,RLXYE 
000137 064552 me J 8$ 
112737 000202 026106 MOVB 
112737 000377 026107 MOVE #0377, INTFLAG 
052777 000001 117126 BIS #B1TO,aDPC 
004737 027454 JSR PC WAI TF 
012701 000100 MOV #100,R 
105737 026107 40$:  TSTB  INTFLAG 
100002 BPL 41$ 
005301 DEC R1 
003373 BGT 40$ 
017702 117100 41$: MOV @DPC ,R2 
017737 117100 003170 MOV @DXR. SDXR 
017737 117074 003172 MOV aDYR.SDYR 
105737 026107 TSTB. —sCINTF LAG 
001417 BEQ 5$ 
002434 BLT 50$ 
010146 MOV R1,-(SP) 


012701 


012601 
000137 064046 


063714 


5$ 


027727 117014 065234 


001040 


MO #40$,R1 
6440 063764 : 
6441 064004 (SP) +_R1 
6442 064006 5 
6443 
6444 064012 : 
6445 064012 7 
6446 064020 51$ 


D.14 
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; CLEAR THE SWITCH 


; PRIME THE INTERRUPT FLAG 


3; START THE DPU 
; WAIT FOR DISPLAY STOP. 


; ANY INTERRUPTS? 


; GO TRY THE NEXT COORDINATES. 
MIOKCKIN! IOKJSM,INTMASK ; SAY WE'LL CHECK FOR MATCH 


NOCM] , INTERR 
0$ 


o 


@DPC ,ACSMF4K+2 


; PRIME THE INTERRUPT FLAG. 


; CONTINUE THE DPU. 
; WAIT FOR DISPLAY STOP. 

; SETUP A WATCHDOG COUNTER. 
; DID WE GET AN INTERRUPT? 
; BR IF YES. 


; GET DPC FOR ERROR. 


; WAS IT A GOOD INTERRUPT? 


; BR IF NO INTERRUPT OCCURRED. 


:DID WE GET TO THE STOPN (NO MATCH)? 
; BR IF NO 


SEQ 0172 


a a 


pooner 


| 


vovii/yst} = GRAPHIC SY 


| 
| 


| wee TEST 


6447 064022 
6448 064042 


6449 
6450 064046 
6451 


064336 


CURSOR R 
000137 
020227 
001071 


000412 
000137 


012701 


017704 
020102 
001002 


020304 
001410 


013701 


017704 
020102 
001002 


017704 
020102 


001410 


012701 


012777 
017702 


020102 


S. DIA 
EGISTE 
064362 


065232 


064362 


065170 
065172 
116630 
116626 


or er 


116550 


110000 


svg ' 
116476 


E 14 
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RS/SWITCH/MATCH 
HRDERR NOMST,PNTCOOR 
JMP 7$ ; GO SEE IF OTHER THINGS CHECK OUT. 
50$: ; COME HERE S a2 MATCH INTERRUPT OCCURRED. 
CMP R2,4 ; DID WE DO A MATCH STOP? 
BNE cos. ; BR IF NO 
HRDERR CMNOMI,PNTCOOR ;YES 
BR 1 : GO CHECK OTHER MATCH DATA. 
501$: HRDERR NOMAT,PNTCOOR zNO MATCH AT ALL 
JMP 7$ ; GO SEE IF IT MATCHES ELSEWHERE. 
51$: :COME HERE IF WE THINK WE GOT A MATCH 
MOV ACSMF4K,R1 : EXPECT DPC TO BE JUST AFTER MATCH. 
MOV MLVEC!ALL,R3 EXPECT DSR TO SHOW LVEC & ALL PIX BITS 
MOV aDPC ,R2 s GT ACTUAL DPC. 
MOV @DSR,R4 ; AND THE DSR. 
iFERRX2 MATPCS,EXPRC2 
CMP R1,R2 ; 1ST ITEM OK? 
BNE 65$ ; NO. 
CMP R3,R4 : 2ND ITEM OK? 
BEQ 64$ © VES. 
65$: HRDERR MATPCS,EXPRC2, ; NO. 
64$: 
MOV CSMF4X,R1 ; GET tee le MATCH X 
MOV CSMF4Y,R3 . AND THE Y. 
MOV aDXR,R2 s GET DXR, ” SHOULD HOLD MATCH X 
MOV aDYR,RS ; GET DYR, SHOULD HOLD MATCH Y. 
IFERRX2 MATXYE,EXPRC2 
CMP R1,R2 : 1ST ITEM OK? 
BNE 67$ ; NO. 
CMP R3,R4 : 2ND ITEM OK? 
BEQ 66$ : YES. 
67$: HRDERR MATXYE,EXPRC2, ; NO. 
66$: 
116566 MOV ARSTPOS ,@DXR RESTORE ong POSITION TO DXR, DYR 
JSR PC,WAITF WAIT FOR STOP. 
ADD #4,R1 - X SHOULD BE x (MATCH) +4 
MOV aDXR,R2 3; GET actuAL DXR 
MOV QDYR,R4 2 «ae AMD OR, 
IFERRX2 MATPOS,EXPRC2 ; 
CMP R1,R2 : 1ST ITEM OK? 
BNE 69$ ; NO. 
CMP R3,R4 : 2ND ITEM OK? 
BEQ 68$ : YES. 
69$: HRDERR MATPOS,EXPRC2, ; NO. 
68$: 
o$: MOV ALVEC,R1 : GET OP-CODE EXPECTED FOR FLAGS. 
RDDSRA_ FLG,R2 GET FLAGS. 
116502 MOV a ; READ FLG INTO R2 . 


MOV @DSR,R 
IFERROR MATFLE,FLGER,7$ 
CMP R1,R2 


3; OK? 


SEQ 0173 


, a 


F 14 
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| eee TEST 


526 

6502 064526 

65053 
£504 064532 
6505 
6506 064552 
6507 064554 
6510 064572 
6511 
6512 064576 


6499 064466 
6500 064472 
6501 064476 
76 
6516 004620 
6517 
6518 064620 
! 
6524 064640 
064640 


064644 
064646 


CURSOR REGISTERS/SwWITCH/MATCH 


001470 


112737 
012777 
004737 


012701 
012601 
000137 
012701 


017704 
020102 


001410 


000137 


062737 
023727 
103002 
000137 


000137 


004737 
103401 
000402 


7$: 
000377 026107 7$: 


065234 
027454 
027454 
026107 


116410 
064404 


116336 


064552 


000002 
064664 


063366 
000002 
064666 
063352 


065002 
065002 


060052 


027646 


116434 


064664 
065000 


064666 
065000 


000004 


17$: 


71$: 
70$: 


18$: 
8$: 


9$: 


10$: 


CSMNEXT: 


1$: 
CSMEND: 


BEQ 
HRDERR 


HRDERR 
JMP 
HRDERR 


ENDSEG 
ADD 


7$ 
MATFLE,FLGER, 


#*0377, INTFLAG 
#CSME GE 
ate © aDPC 


a. 6. -R1 
MATUI, INTERR 
(SP)+,R1 

8$ 


ACSMF41+2,R1 
#STOPN! GOLD ,R3 
@DPC ,R2 
@DSR,R4 
MENDPCS ,EXPRC2 
R1,R2 


R3,R4 


7 
MENDPCS ,EXPRC2, 


8$ 
MATUI ,PNTCOOR 


3 YES. 
NO. 


PRIME THE INTERRUPT FLAG. 


; START AGAIN TO SEE IF WE GET BAD MATCH 


START THE DPU. 
WAIT FOR DISPLAY STOP. 


DID me GET AN INTERRUPT? 
; BR IF NO 
: BR IF GOT ‘'GOOD'’ INTERRUPT. 


; GET EXPECT STOP DPC. 

; DSR SHOULD HAVE STOP + GOLD COLOR. 
GET THE DPC. 
GET THE DSR 


1ST ITEM OK? 


NO. 
; 2ND ITEM OK? 
YES. 


NO. 


5 >>>>>>>>>>>>END SEGMENT 


#2,CSMPX 
CSMPX, -ACSMPTE 


9 
3$ 
#2,CSMPY 

CSMPY ,ACSMPTE 


10$ 
2$ 


CSCHAN 
+ seein 


$ 
CSMLOOP 
CSMITR 
PC ,LOOP 
64$ 

65$ 


; BUMP POINTER TO X DATA. 

IS X POINTER AT END OF TABLE? 
BR IF YES -- GO DO NEXT Y. 
LOOP BACK. 


; IS Y POINTER AT END OF TABLE? 
; BR IF YES =~ WE'RE DONE. 
; NO -- GO DO NEXT Y. 


z INCREMENT TO NEXT CHANNEL 

; DID WE DO ALL Me wrt, CHANNEL S? 
; BR IF YES ~~ GO TO EXIT 

; NO. LOOP BACK TO TEST NEXT CHANNEL . 


; REPEAT ‘TIL LOOPER EXPIRES. 


SEQ 0174 


NN eeeEEEEEEEEOEEOEOEOEOEEOEOEOEEeee 


«< 


eee a ee ee — — 
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| wee TEST 23 CURSOR REGISTERS/ SWI TCH/MATCH SEQ 0175 
064650 000137 060046 64$: JMP CSMITR 
| 064654 004737 030072 65$: JSR PC, TSTEND : PRINT ERROR SUMMARY, IF REQ'D. 
6525 064660 CSMXIT: EXIT TST 
| 6526 
6527 
| 6528 
6369 ; TABLE OF MATCH POINTS == ALL VALUES ARE USED FOR X AND Y: 
6531 064664 000000 CSMPX: .WORD 0 
| 6238 064666 000000 CSMPY: .WORD 0 
6534 064670 000000 000002 900004 CSMPTB: .WORD 0,B1T1,B1T2,B1T3,B1T4 : FIRST, FLOATING 1 ON 0°S, BITS 2 
eh 064702 000040 000100 000200 .WORD ®BIT5,BIT6,BIT7,BIT8,BIT9 - ... THRU 9. 
6536 001776 A1=*01776 “ALL 1°S FOR POSITION 
e239 064714 001776 001774 001772 WORD A1,A1&*CBIT1,A1&*CBIT2,A1&*CBIT3,A1&*CBIT4 : THEN, FLOATING 0 ON 1°S 
6538 064726 001736 001676 001576 <WORD A1&*CBITS,A1&*CBIT6,A1&*CBIT7, A1&*CBIT8,A1&*CBIT9 
6539 064740 001252 000524 001462 WORD 1232. 306, 1466 628 . ALTERNATING BITS AND PAIRS. 
6540 064750 000006 000016 000036 .WORD 6,16,36,76,176, +5 6 
6541 064764 001770 001760 001740 “WORD 1770,1760,1740,1700,1600,1400 
6266 065000 0000006 CSMPTE: .WORD 0 
6544 065002 000000 CSCHAN: .WORD 0 
6545 065004 000000 CSCH.6: .WORD 0 
6546 065006 000000 CSCH.8: .WORD 0 
tot8 065010 000000 CSCH.11: -WORD 0O 
oS 065012 000002 CSRETRY: -WORD 2 
6551 : EXTENDED PRINTOUT FOR SYNC CHANNEL: 
6552 065014 PRSYCH: PRINTX #FSYCHAN,CSCHAN 
$237 065040 000207 RTS PC 
434 DISPLAY FILES FOR CURSOR/SWITCH/MATCH TEST -- 
6557 065042 175000 000000 000000 CSMFIA: .WORD LDCP,0.0 LOAD CURSOR POSITION REGISTERS 
6558 065050 146100 CSMF1B: .WORD CURD READ THEM BACK 
144 065052 173000 WORD STOPN 
6561 065054 146052 CSMF2A: .WORD CUIOFF ! CUOFF : CLEAR ALL ENABLES 
6562 065056 146012 CSMF2B: .WORD  CUIOFF : DO GENERAL WRITE 
6563 065060 146100 173000 CSMF2C: .WORD CURD,STOPN : READ CURSOR (ENABLES COME TOO), THEN STOP 
6564 065064 146077 CSMF2D: .WORD CUON!*077 ; SET ALL ENABLES 
i354 065066 160000 9065056 .WORD DJMP,CSMF 2B :; THEN GO DO GENERAL WRITE AND READ. 
6567 065072 175000 001332 002464 CSMF3A: .WwORD LDCP,*01332, “02464 : LOAD CURSOR WITH SOME DATA 
6568 065100 146013 CSMF3B: .WORD CUIS : ENABLE SWITCH INTERRUPT 
6569 065102 175402 CSMF3C: .WORD LDECC!SWCHON > TURN ON THE SOFT SWITCH 
6570 065104 164000 164000 164000 “WORD DNOP,DNOP,DNOP,DNOP ; DO SOME NO-OPS == SHOULD STOP 
ial 065114 173000 CSMF3D: .WORD STOPN : STOP -- SWITCH DIDN''T WORK 
6377 DISPLAY FILE FOR CURSOR MATCH TEST: 
6575 065116 176074 176474 177074 CSMF4V: .WORD RDWRT!CHO,RDWRT!CH1,RDWRT!CH2,RDWRT:CH3 ; MEMORY SETUP, R/W. 
6576 065126 160000 065142 .WORD DJMP,CSMF4A 


6577 
6578 065132 176034 176434 177034 CSMF4U: .WORD WRT! CHO,WRT!CH1,WRT!CH2,WRT!CH3 ; MEMORY SETUP, WRI-ONLY. 


-——_-—_-——_-—_---——---——---- = =e 


t 
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H_14 
17:22 PAGE 93-5 


| *** TEST 23 CURSOR REGISTERS/ SWI TCH/MATCH SEQ 0176 
6579 065142 170140 CSMF4A: .WORD CLRMEM ; CLEAR THE MEMORIE 
6580 065144 160001 065162 «WORD DJMS,CSMF4B : GO TURN ON” CURSOR AND MATCH ENABLE 
| 6581 065150 160001 065156 173000 «WORD DJMS,CSMF4C,STOPN 3 TURN SWITCH ON, AND STOP 
| O86 065156 175402 165000 CSMF4C: .WORD LDECC!SWCHON,DPOP ; TURN SWITCH ON, AND RETURN. 
6584 065162 146076 165000 CSMF4B: .WORD CUON!CUIM,DPOP ; ENABLE CURSOR AND MATCH. 
6585 065166 175000 CSMF4LC: .WORD LDCP ; — CURSOR POSITION. 
6586 065170 CSMF4X: .WORD 3 
6587 065172 000000 CSMF4Y: .WORD 0 ; Y 
6588 065174 165000 «WORD DPOP ; RETURN. 
6590 065176 114000 160001 065170 CSMF4D: .WORD APNT,DJMS,CSMF4X ; SET MATCH POSITION 
6591 065204 160001 065166 WORD DJMS,CSMF4LC ; LOAD CURSOR POSITION. 
6592 065210 146152 173000 CSMF4!; .WORD CURD! JSWE! JMWE ! JCWE,STOPN ; STOP FOR CHECK. 
6593 065214 160001 065162 -WORD DJMS,CSMF4B ; GO TURN ON MATCH ENABLE 
6594 065220 1 065156 “WORD DJMS,CSMF4C ; GO TURN ON SWITCH 
6595 065224 113774 «WORD LVEC!ALL SET TO WHITE. 
6596 065226 000000 -WORD 1!4,0 ; DRAW, SHOULD MATCH 
6597 065232 173000 CSMF4K: .WORD . WITH DPC AT F4K 
6598 065234 114000 160001 065170 CSMF4E: .WORD APNT, ory CSMF 4X’ ; RESTART. SET POINT 
6599 065242 113600 «WORD LVEC!YELL ; CHANGE COLOR 
6600 065244 000002 00000 -WORD 2,0 3 THEN MOVE TO X+2, 
6601 065250 041776 000000 061776 -WORD = I!MAXX,0, F ectenn 0 > DRAW OUT TO RIGHT AND BACK. 
6602 065260 113300 «WORD LVEC!VIOL 
6603 065262 020002 000002 CSMF4F: .WORD M!2,2 3 - TO ABOVE MATCH POINT 
6604 065266 001776 040000 WORD I!0,MAXY,1!0,M!MAXY 3... AND DRAW UP AND BACK. 
6605 065276 113500 “WORD LVEC!EGGBL 
6606 065300 020002 020002 CSMF4G: .WORD M!2,M!2 
6607 065304 061776 000000 041776 WORD J !M!MAXX,0,1!MAXX,0 ; DRAW LEFT AND BACK. 
6608 065314 113200 “WORD LVEC!GOLD 
6609 065316 000002 020002 CSMF4H: .WORD 2,M!2 
6610 065322 040000 021776 040000 «WORD I!0,M!MAXY,1!0,MAXY 
df! 065332 173000 173000 CSMF41: .WORD STOPN,STOPN 
6613 ; SUBROUTINES: 
6614 :GET gar COORDINATES, AND READ MASKED DXR, DYR INTO R2, R4 =~ 
6615 065336 004737 027454 GETCURS: JSR PC ,WAITF ; WAIT FOR STOP BIT 
6616 065342 B1su3 CSCH.8, ane @aDXR ; RETRIEVE CURSOR FROM SELECTED CHAN. 
065342 012746 042100 MOV #WRT JSS !BIT6,-(SP) 
065346 053716 065006 BIS CSCH.8, (SP) 
065352 012677 115460 MOV (SP) +, @DXR 
6617 065356 004737 027454 JSR PC ,WAITF 5 ; WAIT FOR STOP. 
6618 065362 RDDXY: BICW3 #*C<BIT15!*03777>,aDXR,R2 ; DXR TO Re, LEAVE FLAG & COORD. 
065362 017702 115450 MOV @DXR,R2 
065366 042702 074000 BIC #*C<B1T15!*03777>,R2 
6619 065372 BICW3 #*C<BIT15!*03777>,aDYR,R4 ; DYR TO R4, LEAVE FLAG & COORD. 
065372 017704 115442 MOV @DYR,R4 
065376 042704 074000 BIC #*C<BIT15!*03777>,R4 
“v 065402 00020” RTS PC 
6622 3GET JOYSTICK ENABLES~ 
6623 065404 004737 027454 GETJSE: JSR PC ,WAITF ; WAIT FOR STOP, 
6624 065410 CSCH.8, rot tye: Naw @DXR™ ; READ CURSOR 
065410 012746 042100 MOV #WRTJSS 'BIT6,-(SP) 
065414 053716 065006 BIS CSCH.8, (SP) 
065420 012677 115412 MOV (SP) +, aDXR 
6625 065424 004737 027454 JSR PC ,WAITF 


Seal 


a 


pponmeeeereenteeceneenceeeanans ee 


| 
1 14 
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| see TEST 23 CURSOR REGISTERS/SWITCH/MATCH SEQ 0177 
6626 065430 RDJSE: BICW3 #*C<BITIS!JSSIES!JSMIES>, @DXR,R2 ;DXR TO R2, LEAVE ENABLES 
| 065430 017702 115402 MOV @DXR,R2 
065434 042702 063777 BIC #*C<BIT1S! JSSIES! JSMIES>,R2 
6627 065440 BICW3 #*C<BIT1S!CHIE>,aDYR,R4 ;DYR TO R4. 
065440 017704 115374 MOV @DYR,R4 
065444 042704 067777 BIC #*C<BIT15!CHIE>,R4 
6628 065450 000207 RTS PC 
6630 065452 FND.TEST 


EERE EERE EREREE REE ERE EA EEE 


* END TEST 23 


| 
} 
RRA RAA EEE E EE AEREREAEATAERERAAREER RARER ARERR AARERARARAAEEAARIA REESE SS 


Se Be eee 
* 


' y' 


| . a 


| J 
ei GRAPHIC SYS. DIAG MACRO M1113 29-JAN-81 17:22 PAGE 94 


| wee TEST 
6632 


GRAPH=HISTOGRAM X 


“hg S esea a iden e  a'  an a at niit 


-* 


BEGIN TEST 24 = 


s epecnecneeeenneoboewsensooussnnstersneneseeeeoensesnnenneenneeneesessese 


: (ITERATION COUNT = 10.) 


1600 TO 200 (DELTA 30), 


~GRAPH AND FILLED HISTOGRAM, BUT AT LOWER 
HE MEMORIES IN ‘WRITE-1'S-ONLY’’ MODE TO SEE STUFF. 
REPEAT EACH INCREMENT 10 TIMES AFTER QUICK PASS. 


GRAPH=HISTOGRAM X 


;DPU ONLY ??? 
sNO, EXECUTE. 
: EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


FOR Y = = % TO 2. 


; TITLE 

:SET ER ger EXTENSION ADDRESS. 
INIT IN R/W-1'°S-ONLY MODE. 
[SAVE A COPY OF LOOPK. 

TSET G/H-X MODE WITH MAX INTENSITY 
START WITH GRAPH FUNCTION 
[SETUP THE FUNCTION IN FILE 
3... AND SET IN THE X AMPLITUDE 
INIT BASE = X-20 

zINIT Y INCREMENT = 76. 

SINIT EXPECTED X. 


b KKK KKK KEK KK KKK KKK KKK KKK << BEGIN SEGMENT. 


7 SET yore INCR IN R1. 
INIT EXP 


START NEW INCREMENT. 
RESUME, PLOT NEXT POINT. 


stwy=sy* INCR. 
7 CHECK RETURNED X = X AMP... 


z..-AND Y = Y + INCR. 


6633 065526 005737 002502 TST DPUMOD 
6634 065532 001402 BEQ GHXTST 
6635 EXIT TST 
6636 3 
| 6637 3; PLOT GRAPH X = 
6638 : WHEN DONE, REPEAT IN HISTO MODE, WITH BASE = 
6639 ; DO THE SAME FOR Sng ED 
6640 : INTENSITY. RUN T 
6641 : 
6642 : 
6643 065540 004737 027702 GHXTST: JSR PC, TSTGO 
6644 065544 012737 066142 022300 MOV #20$,EXTA 
6645 065552 004737 027054 JSR PC,.LUMIN 
6646 065556 004737 026640 JSR PC,CLRRW1 
6647 065562 013737 027700 003234 MOV LOOPK , TEMP2 
6648 065570 012737 123774 066212 MOV AMGHX!ALL ,XA-2 
6649 065576 012737 066174 MOV #0,GHXTYP 
6650 065 013737 066174 066214 8%: MOV GHXTYP,XA 
6651 065612 052737 001600 214 BIS #1600,XA 
6652 065620 012737 001560 066200 MOV #1560, GHXT+2 
6653 065626 012737 174176 066202 MOV #GYI'76,Y1 
— 065634 012704 001600 MOV #1600 ,R4 
6656 
ex 065640 1$: BGNSEG 
6659 065642 013701 066202 MOV YI,R1 
065 042701 177700 BIC #*C77,R1 
6661 065652 500 2$: CLR RS 
6662 065654 052737 010000 066214 BIS #GHIINH,XA 
065662 012777 066176 115142 MOV A#GHXT , @DPC 
065670 02 SKP2 
6665 065672 005277 115134 3$: INC aDPC 
6666 065676 7 027454 JSR PC ,WAITF 
6667 065702 032737 010000 066214 BIT #GHIINH,XA 
6668 065710 1001 BNE 13$ 
6669 065712 0105 ADD R1,R5 
6670 065714 027704 115116 138: CMP @DXR,R4 
6671 065720 100 BNE 4$ 
6672 065722 027705 115112 CMP aDYR,R5 
6673 065726 001410 EQ 


010000 
001776 


027646 


066214 


4$ 
5$ 


GHXF ,XYERR 
#GH] INH, XA 
R5 ,AMAXY 


GHX FAILS. 


: DONE THIS INCREMENT ?? 
NOT YET, CONTINU 


KEKE KEKE KEKE KEKE KEKE EE END SEGMENT. 


1 
PC ,LOOP 


B 5$ 
6674 065730 : : 
6675 065750 042737 BIC ‘ 
6676 065756 020527 CMP 5, 
6677 065762 103743 3$ 
6678 065764 ; 
6679 065766 $ 
065766 004727 § ; 


; REPEAT.. 


SEQ 0178 


pose 


| WSV11/VS11 == GRAPHIC SYS. DIAG 
eee TEST 24 GRAPH=H1STOGRAM 


| 065772 103722 
6680 
6681 
| 6682 065774 013737 003234 
6683 2 066202 


6685 066012 162737 000002 
6686 066020 162737 000030 
6687 066026 162704 000030 
6688 066032 162737 000030 
066040 000677 
6691 066042 005737 066174 
2 066046 001004 
6693 066050 012737 040000 
6694 000652 
6695 066060 023727 066174 


6696 066066 
6697 066070 162737 000400 
— 066076 023727 066174 


001004 

6700 066106 012737 020000 
000633 

6702 066116 012737 060000 


04 
6705 066126 00%737 027514 
6706 066132 004737 030072 
066136 


ore 066172 000207 


000000 

0000 000000 
6720 066206 000000 000000 
6721 066212 ithe 


00000 
6723 066216 173000 
6724 066220 160000 066212 


Oo 
SN 
=) 
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x 
BCS 1$ 
027700 MOV TEMP2 , LOOPK RESET LOOPER. 
174102 CMP YI ,AGYI!2 
BEQ 6$ ;BR IF LAST INCR DONE. 
066202 SUB #2,Y1 OTHERWISE, =? NEXT INCR... 
066214 SUB #30,XA ;.. AMPLITUDE... 
SUB #30,R4 
066200 SUB #30 ,GHXT+2 3..-AND BASE LINE. 
BR 1$ ;DO NEXT SET. 
6$: TST GHXT YP : JUST DID GRAPH? 
BNE 30$ «BR AHEAD IF NOT. 
066174 MOV MHST , GHXTYP YES. SET +e — 
BR $ -AND GO DO 
060000 30$: CMP GHXTYP ,#FHST + UST DID FILLED-HISTO? 
BEQ 10$ ;DONE IF YES. 
066212 SUB #B1T8,XA-2 31F NOT, DECREMENT INTENSITY. 
040000 CMP GHXTY¥P ,#HST :JUST DID HISTO. ? 
BNE 31$ ...BR AHEAD IF NOT. 
066174 _ pees gate :IF YES, NOW DO CONN-GRAPH 


066174 31$: MOV AFHST ,GHXTYP ibid C-GRPH, NOW DO F-HIST 


BR 8$ _— 


10$: JSR PC ,PAUSE1 
JSR PC, TSTEND 


EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


* ON ERROR, SHOW X AMPLITUDE AND Y INCREMENT. 
208: PRINTX #GHXYX,XA,YI sERROR EXTENSION. 
RTS PC 


[DISPLAY CODE FOR GRAPH/HISTO X TEST. 


GHXTYP: 0 FUNCTION TYPE 
GHXT: SETHB,0 SET BASE LINE. 
YI: GY1!0 SET Y INCR. 
APNT 
0,0 
GHX ! ALL 
XA: 0 7X AMPLITUDE (BIT 14 = HST MODE). 
STOPN 
END. TEST 


RE EERE EEE EERE ERE EEE REAR ERE RR REA EERE 


** 


:* END TEST 24 
** 


. 
PEE AA A A AA AA TAAL AREA RR ES 


vi 





ro 
| 
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eee TEST 25 GRAPH=HISTOGRAM Y SEQ 0180 

3 REE EREREREEEE REE E KEE RERREEEEREER ERE 
*?® 

| be BEGIN TEST 25 -  GRAPH=-HISTOGRAM Y 
"* 
: Pree er TTC CCC TCC CCC CACC CASAC CAPPS Cece eC PPT TTP P TP TTT CTT TTF FP PP PP PPh 
: (ITERATION COUNT = 10.) 

6729 066300 005737 002502 TST DPUMOD 7DPU ONLY ?? 
001402 BEQ GHYTST NO, UTE. 
EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 





PLOT GRAPH Y = 1600 TO 200 (DELTA a FOR X = 76 TO 2. 

WHEN DONE, REPEAT IN HISTO MODE, WITH BASE = Y~20. 

DO THE SAME FOR CONNECTED-GRAPH AND FILLED HISTOGRAM, BUT AT LOWER 
INTENSITY. RUN THE MEMORIES IN 
REPEAT EACH INCREMENT 10 TIMES AFTER QUICK PASS. 


‘WRITE-1'S-ONLY'' MODE TO SEE STUFF. 


004737 027702 GHYTST: JSR PC, TSTGO 3; TITLE 
012737 066714 022300 MOV #20$,EXTA ; SET ERROR EXTENSION ADDRESS. 
004737 027054 JSR PC,LUMIN BLAST L 
004737 026640 JSR PC,CLRRW1 S INIT IN R/W-1"S-ONLY MODE. 
013737 027700 003234 MOV LOOPK , TEMP2 + SAVE A COPY OF LOOPK. 
012737 127774 066764 MOV AGHY ALL, YA-2 ;SET G/H-Y MODE WITH MAX INTENSITY 
012737 000000 066746 MOV #0, GHYTYP :START WITH GRAPH FUNCTION 
013737 066746 066766 8$: MOV GHYTYP,YA * SETUP THE FUNCTION IN FILE - 
052737 001600 066766 BIS #1600,YA ee AND SET IN THE Y AMPLITUDE 
012737 001560 066752 MOV #1560,GHYT+2 : INIT BASE LINE = Y~-20. 
012737 174176 066754 MOV #GX1!76,XI sINIT X X INCREMENT = 76. 
012705 001600 MOV #1600,R5 SINIT EXP Y. 
1$: BGNSEG p KKKK KK KKK KKK KK KKK KK KKK <<< BEGIN SEGMENT. 

013701 066754 MOV XI,R1 
042701 177700 BIC #°C77,R1 ;SET CURRENT INCR IN R1. 
005004 2$: CLR R4 s INIT EXP X... 
052737 010000 066766 BIS MGHIINH,YA 
012777 066750 114370 MOV #GHYT,aDPC sSTART NEW INCREMENT. 
000402 SKP2 , 
005277 114362 3$: INC aDPC ;RESUME, PLOT NEXT POINT. 
004737 027454 JSR PC ,WAITF 
032737 010000 066766 BIT #GHI INH, YA 
001001 BNE 13$ 

ADD R1,R4 sEXP X = X + INCR. 
027704 114344 13$: CMP @DXR,R4 ;CHECK RETURNED X = X + INCR... 
001003 BNE 4$ 
027705 114340 CMP aDYR,R5 :..-AND Y = Y AMPL. 
001410 BEQ $ 

4$: HRDERR GHYF,XYERR :GHY FAILS. 

042737 010000 066766 5$: BIC AGHIINH,YA 
020427 001776 CMP R4,AMAXX : DONE THIS ot ?? 
103743 BLO 3$ NOT YET, CON 

ENDSEG : ££ REECE EE REEL END SEGMENT. 

LOOPTO 1$ REPEAT. 
004737 027646 JSR PC,LOOP 
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GRAPH=HISTOGRAM Y 


eee TEST 2 


103722 


004737 
004737 


003234 
066754 


027514 
030072 


000000 


000000 


066764 


027700 
174102 


066754 
066766 


066752 


066746 
060000 


066764 
040000 


066746 
066746 


BCS 


6$: TST 


30$: CMP 


31$: MOV 


10$: JSR 


SEQ 0181 
1$ 
TEMP2,,LOOPK :RESET LOOPER. 
XI ,AGKI!2 
6$ :BR IF LAST INCR DONE. 
#2,X1 SOTHERWISE, SET NEXT INCR... 
#30. “YA :,. AMPLITUDE... 
#30.GHYT+2 .AND BASE LINE. 
1$ “D0 NEXT SET. 
GHYTYP ;JUST DID GRAPH? 
30$ “BR AHEAD IF NOT. 
#HST,GHYTYP YES. SET HISTO MODE 
8$ .AND GO DO IT 
GHYTYP,#FHST 2 UST DID FILLED-HISTO? 
10$ “DONE IF YES 
#B1T8,YA-2 ‘IF NOT, DECREMENT INTENSITY. 
GHYTYP,,#HST ;JUST DID HISTO.? 
3 .BR AHEAD IF NOT. 


1$ 
 wtrimeerace IF YES, NOW DO CONN-GRAPH 
ee ‘bid C-GRPH, NOW DO F-HIST 


PC,PAUSE1 
PC, TSTEND 
TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


+ ON ERROR, SHOW Y AMPLITUDE AND X INCREMENT. 
308: PRINTX #GHXYX,YA,XI : ERROR EXTENSION. 
RTS PC 


[DISPLAY CODE FOR GRAPH/HISTO Y TEST. 


GHYTYP: 0 
GHYT: 


SETHB,0 
XI: GX1!0 
APNT 
0 
GHY !ALL 
YA: 


FUNCTION TYPE 
SET BASE LINE. 
:SET X INCR. 


7Y AMPLITUDE (BIT 14 = HST MODE). 


STOPN 
DJMP, YA~2 
END. TEST 


Te TTT TCC CCT CCCCCCCACCACACCC CCC CCPC Pee PES ESSE SESSLER SERRA RASS A ALES SES 


** 


* END TEST 25 
** 


© Ree TT I IT RRR KERR ERE EERE EERE EERE EEE EERE ERK 
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eee TEST 26 BIT (1) SEQ 0182 
6824 
FERRARA AREER EERE EERE REAR EEE RRR EE 

oe 

:* BEGIN TEST 26 = BIT MAP (1) 

** 

TGS SIEISIIEIEIEIEIIEI ISIS EIEIO SISIIIIIIIIUIOISISISISIIOISIIUIIEIOIEIININIIOIIIOOISS I 

; (ITERATION COUNT = 10.) 
6825 067044 005737 002502 TST DPUMOD ;DPU ONLY ?? 
6826 067050 001402 BEQ BMITST NO, EXECUTE. 
yr 334 067052 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
6829 : EXECUTE BIT MAP MODE 1 WITH 4 AND 8 BIT PIXELS FOR ALL 
6830 : POSSIBLE RUN LENGTHS (0 THRU 777). TEST FINAL X/Y FOR EACH. 
6831 ; IF VISUAL, DISPLAYS A WEDGE STARTING AT 0,0 WITH EVERY 
6832 ; OTHER PIXEL (IN X) TURNED OFF. 
6833 ; REPEAT AFTER QUICK AS BEFORE. 
oeee ; PIXEL BUFFER SIZE = 256. WORDS (512. 8 BIT PIXELS MAX). 
6836 : IN THE w 3 DPU, A COUNT OF O DOES 512. PIXELS, SO IT'S LAST. 
6837 067056 004737 027702 BMITST: JSR C,TST 60 g TIL 
6838 067062 012737 067350 022300 MOV #008. EXTA 5s SET ERROR EXTENSION ADDRESS. 
6839 067070 004737 027054 JSR PC,LUMIN ; BLAST LUT. 
6840 067074 013737 027700 003234 MOV LOOPK , TEMP2 : SAVE A COPY OF THE | eee 
6841 067102 012700 000377 MOV #377, RO ; SET PIXEL DATA PATTERN... 
6842 067106 004737 027014 JSR PC, FILL1 ;..-AND FILL THE BUFFER. 
6843 : 2 ON, 2 OFF IN 4 BIT MODE. 
one : 1 0N, 1 OFF IN 8 BIT MODE. 
6846 067112 012777 000001 113714 MOV ASELPCS,@DSR sSAVE PCSAVE... 
6847 067120 017737 113710 003146 MOV @aDSR,IPCSAV s 
6848 067126 012701 136001 MOV #BM14+1,R1 ; 1ST OPCODE W/ COUNT=1. 
6849 067132 013737 003240 067412 MOV FREE ,BM1PIX ; BUFFER ADDRESS. 
6850 067140 004737 026650 1$: JSR PC,CLRRW : INIT IN R/W MODE. 
6851 067144 012704 000002 MOV #2,R4 ; INIT EXPECTED X.. 
6852 067150 005005 CLR R5 s20eM® Y. 
6853 067152 010137 067410 2$: MOV R1,BM1PIX-2 ; SET 1ST/NEXT OPCODE... 
ete: 067156 010537 067406 MOV R5,BM1Y 3..-AND Y CO-ORD. 
6836 067162 BGNSEG b KKK KKK KKK KKK KK KKK KKK << <<< BEGIN SEGMENT. 
6858 067164 012777 067374 113640 MOV #BM1 , aDPC sSTART, XCT BIT MAP MODE. 
6859 067172 004737 027454 JSR PC ,WAITF 

067176 027704 113634 CMP @DXR,R4 sCHECK DXR = R4... 
6861 067202 001003 BNE 3$ 
2 067204 027705 113630 CMP aDYR,R5S 
6863 067210 001410 BEQ 4$ 
6864 067212 3$: HRDERR BMF ,XYERR ;BM1 FAILS. 
6865 067232 4$: ENDSEG b KKK KKK KKK KEK KKK KKK <<< END SEGMENT. 
6867 067234 LOOPTO 2$ ; REPEAT... 
067234 004737 027646 JSR PC,LOOP 

once 067240 103744 BCS 2s 
6869 067242 013737 003234 027700 MOV TEMP2 ,LOOPK nee LOOPER 


6870 067250 032701 000777 BIT #777,R1 DONE 512. PIXELS? 








——_—————_—-—— -- ——- 
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| wee TEST 26 (1) SEQ 0183 
| 6871 067254 001416 BEQ re zy..-IF YES, GO SEE IF ALL DONE. 
| 6872 067256 Usen INC ; NO, INCREMENT RUN LENGTH. 
6873 067260 000002 ADD a2. Ae: ; NO, INCR EXPECTED X... 
4 067264 062705 90000¢ ADD t..AND Y... 
6875 067270 (32701 00077 BIT AFP RI :COUNT OVERFLOW? 
6876 067274 001325 BNE 2$ ; CONTINUE IF NOT. 
6877 067276 020127 137000 CMP R1,48M18 : INTO BM18? 
6878 0673502 001011 BNE 6 ;BR IF NOT. 
6879 067304 012701 136000 MOV #8M14,R1 IF YES, DO BM14 W/ COUNT=0 
6880 067310 000720 BR 2s :..-AND CONTINUE. 
6881 067312 020127 137000 5$: CMP R1,48M18 HERE IF ACTUAL COUNT=0. 
6882 067316 001406 BEQ 10$ :DONE IF ON BMi8. 
6883 067320 012701 137001 MOV #BM18+1,R1 7G0 TO BM18 
6884 067324 000705 BR 1$ z..eAND CONTUNUE. 
6885 067326 012701 137000 6$: MOV #8M18+0,R1 ;D0 BM1.8 W/ COUNT= 
rr) 067332 000707 BR 2s 3.--AND CONTUNUE. 
6888 067334 004737 027514 10$: JSR PC ,PAUSE1 
6889 067340 004737 030072 JSR PC, TSTEND 
= 067344 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
pr te : ON ERROR, SHOW THE FAILING BIT MAP OPCODE. 
6894 067350 20$: PRINTX #BMX,R1 ; EXTENSION SHOWS BAD OPCODE. 
rr +44 067372 000207 RTS PC 
yr te : DISPLAY CODE FOR BIT MAP MODE 1. 
6899 067374 164000 164000 164000 ®BM1: DNOP, DNOP, DNOP zy *** WRITE MODE (176024) *** 
6900 067402 114000 APNT 
6901 067404 000000 BM1X: 0 
6902 067406 000000 BM1Y: 0 
6903 067410 136000 BM14!0 ; BIT MAP MODE. 
6904 067412 000000 BMIPIX: 0 . PIXEL BUFFER ADDRESS. 
905 067414 164000 164000 164000 DNOP, DNOP, DNOP : “xe READ MODE ( 176040) *** 
OOP 067422 173000 STOPN 
6908 067424 END. TEST 


4 EERE EERE RARER ERRERE RARE REEREREE 
3° 

3 END TEST 26 

3” 

DY RARER RRR EERE ERE EEE EEE REE EEEA EAA EEE E RARER E ERA R EA ® 
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eee TEST 27 BIT MAP (0) SEQ 0184 


6910 


ERE REE E REE RRR RE REEEEREEREERREREEROEAAERAREAARERERAERERERE EEE 


‘7 
;* BEGIN TEST 27. = BIT MAP (0) 
** 


WUUTTTITILILILELILI LIAL ehhh hhh De iittala 


| 
| 
| 
| 
i 
z (ITERATION COUNT = 10.) 
6911 067472 005737 002502 TST DF MOD ; DPU ONLY ?? 


6912 067476 001402 BEO BMOTST ; NO, EXECUTE. 
oz 067500 1$: EXIT TST + EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


6915 > INITIALIZE AND FILL THE BUFFER. 


6 ; 
6917 067504 004737 027702 BMOTST: JSR PC, TSTGO s TITLE 
6918 067510 004737 027054 JSR PC.LUMIN ; BLAST LUT. 
6919 067514 004737 026650 JSR PC, CLRRW ZINIT IN R/W MODE. 
6920 067520 012700 000377 MOV #377,RO : DATA FOR 2 OR 4 PIXELS. 
6921 067524 004737 027014 JSR PC,FILL1 ‘ FILL THE BUFFER. 
6922 067530 013737 003240 070426 MOV FREE,BMOP1+12 9; 1ST FRAME(S) USE BUFFER. 
6925 067536 005037 070452 CLR BMOP2+12 + 2ND USES ABS 0. 
6925 : FIRST TEST THE RESOLUTION BIT ON A 32 SQUARE ARRAY. 


6 ; 
6927 067542 013737 027700 003234 1$: MOV LOOPK , TEMP2 ; SAVE A COPY OF THE LOOPER. 
6928 067550 012701 134000 MOV #BM04 ,R1 : MODE 0, 512 RESOLUTION. 
6929 067554 010137 070424 MOV R1,BMOP1+10 
067560 BMOP1 +4 


6931 067564 005037 070422 CLR BMOP1+6 : ORIGIN 0,0. 
6932 067570 012704 000100 MCV #100,R4 
6933 067574 010405 MOV R4,R5 


6935 067576 2$: BGNSEG .. german tease BEGIN SEGMENT. 
6936 067600 012777 070414 113224 MOV #BMOP 1 , aD 
6937 067606 004737 070320 JSR sy AO ERROR CHECK. 
6938 067612 ENDSEG 3 CEKKK KEKE KEKE KEK EERE EKEKKE END SEGMENT. 
6939 067614 LOOPTO 2$ ; REPEAT... 

067614 004737 027646 JSR PC,LOOP 

067620 103766 BCS 2$ 


6941 067622 013737 003234 027700 MOV TEMP2, LOOPK :...THEN RESTORE LOOPER. 
MOV #BM04'R256,R1 = SHIFT TO 256 RESOLUTION. 
MOV R1,BMOP1+10 

ADD #40 ,BMOP1+4 

ADD __ #40 Po Sea ee | 
ADD #140,R4 








070420 


-"** 








MOV R4.R5 
BGNSEG : ~ ee 58 caps BEGIN SEGMENT. 
0 067664 012777 070414 113140 MOV #BMOP1 , aDPC 
6951 067672 004737 070320 JSR PC ,BMOCHK ERROR CHECK. 
6952 067676 ENDSEG : COCKE KEKE KK EKKRKERRKEKEKEE END SEGMENT. 
6953 067700 LOOPTO 3$ ; REPEAT... 
067700 004737 027646 JSR PC,LOOP 
067704 103766 BCS 3$ 





aon 
i 


wee TEST 27 
6955 067706 
6956 
6957 
6958 
6959 067714 


| 6 20 
6961 067722 
6962 067726 
6963 067732 
6964 067736 
6965 06774e 
6966 0677 
6967 aaerd 
6968 


BIT 
013737 


012701 
2 


012777 
004737 


004737 
103766 
013737 


052701 
010137 


005277 
004737 


004737 
103767 


013737 
37 


010137 


005277 
004737 


004737 
103767 


013737 


003234 


134000 


135000 
070420 
070422 
000100 


070424 
026650 


070414 
070320 


027646 


003234 


070424 


112760 
070320 


027646 


000777 
000020 
070424 


112672 
070320 


027646 


003234 


027700 


113046 


027700 
070420 
070422 


027700 
070420 
070422 


027700 


is: 


5$: 


6$: 


7$: 


8$: 


MOV 
NOW CHECK THE 
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TEMP2 ,LOOPK ;..-AND RESTORE. 
EXPANSION OF A 32 SQUARE ARRAY. 
#BMO04 ,R1 : 4 BIT, 32 SQUARE, NO EXP. 
#BM08 ,R1 ; 8 BIT, 32 SQUARE, NO EXP. 
BMOP1+4 ; 1ST BLOCK AT 0,0 
BMOP 1 +6 
#100,R4 ; SET EXP X AND Y. 
R4,R5 
R1,BMOP1+10 ; SET OPCODE. 
PC,CLRRW 
& teeta ah onan ess BEGIN SEGMENT. 
#BMOP 1 , aD 
OK ; ERROR CHECK. 
os : €EEEEEEELE EE EERE EE CELEE EEE END SEGMENT. 
PC,LOOP ipa 
6$ 
TEMP2 , LOOPK 
#40 ,BMOP1+4 
#40 ,BMOP1+6 
#140,R4 
R4,R 
#777,R1 
#EX2,R1 : EXPAND X2. 
R1,BMOP1+10 
b KKK KKK KEK KK EEE KK KKK KKK <<< BEGIN SEGMENT. 

aDPC 

PC ,BMOCHK ; ERROR CHECK. 

* p KKK KK EERE KKK KEK KKK KKK KKK END SEGMENT. 
PC,LOOP 

7$ 

TEMP2 , LOOPK 
#100, BM0P1 +4 

ere 
#300,R4 

R4,R5 

#777 RI , 

HEXG ; EXPAND X4. 

SE eMaP1+10 


b KKKK KKK EK KEK KK KKK KKK KKK <<< BEGIN SEGMENT. 


7000 070134 aDPC 

7001 070140 . 

7002 070144 : 

7003 070146 8$ 
070146 S . 
070152 8$ 

7004 

7005 070154 ‘ 


PC ,BMOCHK ERROR CHECK. 
PRPOee Pobre Py ote eer er END SEGMENT. 
; REPEAT 


PC,LOOP 


TEMP2 ,LOOPK 


SEQ 0185 


a 


E 15 
VSV11/VS11_<= Oe ae th) DIAG MACRO M1113 29-JAN-81 17:22 PAGE 97-2 


| eee TEST 27 BIT SEQ 0186 


7006 070162 020127 135020 CMP R1,4BM08!EX4 3G a MODE DONE ?? 
dh 070166 001255 BNE 5$ ; "ROUND. 
7009 s NOW TEST THE 64, 128, AND 256 SQUARE SIZES BY DISPLAYING 
my ; THE CONTENTS OF CPU MEMORY STARTING AT LOC 0. 
7012 070170 012701 134001 MAPMEM: MOV mf agen ; 4°BIT, 64 SQ. 
7013 070174 012704 000200 MOV #200,R 
7014 070200 010405 MOV RGR Ree > EXP X.Y. 
aa 070202 010137 070450 1$: MOV R1.BMOP2+10 ; SET OPCODE. 
7017 070206 GNSEG b KKKK KKK KEKE KKK KK KKK KKK KKK BEGIN SEGMENT. 
7018 070210 012777 070440 112614 Vv ABMOP2 , ADPC 
7019 070216 737 027454 JSR PC ,WAITF 
7020 070222 103375 BCC 74 S on ONES WILL OUTLAST WAITF TIMER. 
7021 070224 737 070324 JSR PC ,BMOCHK+4 ; ERROR CHECK 200,200. 
7022 3 -400 (128 SQ). 
7023 1000,1000 (256 SQ). 
roe 070230 ENDSEG : CREEK EKER EKER KKK EKKAKEKE END SEGMENT. 
7026 070232 737 027522 JSR PC,PAUS.5 
7027 070236 032701 001000 BIT #1000,R1 2 BIT MODE ?? 
7028 070242 001010 BNE 2$ 
7029 070244 052701 001000 BIS e1008., R1 "SHIFT 10. 8 BIT MODE. 
7030 070250 000754 BR ; *** OR NOP * 
031 0702 023727 070450 135003 CMP B0P2+10, #BMO8 'M256 
7032 070260 001401 BEQ 2$ : QUIT AT 8 BIT, 256 SQ. . 
7033 070262 000747 She 1$ z... OR WE RUN OUT OF MEMORY . 
034 070264 042701 001000 23: BIC #1000,R1 : RESET 4 BIT MODE... 
7035 070270 005201 INC R1 tee-SET NEXT SIZE... 
036 070272 006304 ASL R4 
7037 070274 00630 ASL RS 3...AND EXP ‘ 
7038 070276 032701 000004 BIT #4,R1 : DONE THRU 586 $0. ?? 
eR 070302 001737 BEQ $ : NO, GO ‘ROUND. 
7041 070304 004737 027514 10$: JSR PC,PAUSE1 ; ALL DONE. 
7042 070310 004737 030072 JSR PC, TSTEND 
oo 070314 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
7045 070320 737 027454 BMOCHK: JSR PC ,WAITF ; WAIT FOR DONE... 
7046 070324 027704 112506 CMP @DXR,RS z..-AND TEST X... 
7047 070330 100 BNE 1$ 
7048 070332 027705 112502 CMP @DYR,RS z..-AND Y. 
070336 001413 BEQ 2$ 
7050 070340 1$: 
7051 070340 012737 070370 022300 MOV #3$,EXTA : SET ERROR EXTENSION ADDRESS. 
7052 070346 HRDERR BMF ,XYERR 
7053 070366 2$: 
7054 070 000207 RTS PC 
7055 070370 3$: PRINTX #BMX,R1 ; EXTENSION SHOWS BAD OPCODE. 
aes 070412 000207 RTS PC 
Ake : DISPLAY CODE FOR BMO TESTS. 
7060 070414 164000 DNOP 
7061 070416 114000 000000 000000 APNT, 0, 0 
7062 070424 134000 04'0 : 32 SQUARE, NO EXP. 


ie 


F 15 
VSV11/VS11_== GRAPHIC SYS. DIAG MACRO M1113 29-JAN=81 17:22 PAGE 97-3 
eee TEST 27 BIT MAP (0) 


7063 070426 000000 0 ; BUFFER ADDRESS. 
| 7064 070630 164000 173000 DNOP, STOPN 

7065 070434 160000 070416 DJMP, BMOP1+2 

7067 970440 170140 BMOP2: CLRMEM 

7068 070442 114000 000000 000000 APNT, 0, 0 

070450 134000 BMO4 '0 

7070 070452 000000 0 
| 7071 070454 166000 173000 DNOP, STOPN 

7072 070460 160000 070440 DJMP;, BMOP2 

7074 070464 END. TEST 


FRAME AAA RAE EA AAA RAERAAAEAERAARAAEAEEAEAE EARTH AAARAAAAREREERAAASERIAESS 
;* 

by END TEST 27 

o* 

PARRA AEE R EH EREAEAERAEELOSRERERAEREREREAARARAARERAAAAARAOARARRAARARNO NESS 


SEQ 0187 
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IMAGE MEMORY CLEAR=SET 


eee TEST 28 
7076 


7077 070546 
7078 070552 
ada 070554 


070724 
070724 
21 070730 


005737 
001402 


004737 
004737 
004737 


005037 
013701 


005002 


010277 
004737 


002502 


027702 
030414 
027054 


072414 
072414 


003256 


071116 
003072 


003074 
072414 


176074 
071434 
002504 


000001 
027700 


071424 


112116 
027454 


027700 
003234 


112124 


REE EER REE TERE AREER RERERER AETHER AEE 


IMAGE MEMORY CLEAR=SET 


REAR EEE REE ERE EERE 


. 
Ps 
-* 
. 
Ps 
Ps 


BEGIN 


TEST 28 = 


; (ITERATION COUNT = 10.) 


CS Be Be Be Be 


CLRT1: 


2$: 


; *‘SETMEM T 


IF LONG 


TST 
BEQ 
EXIT 


DPUMOD 
CLRTST 
TST 


PC,TSTGO 
PC, CONFIG 
PC,LUMIN 


IMC.CH 
aan 


R 
MEMTAB(R1) ,R1 
.+6 

11$ 

R1,PDF 

R1 

R1,PDM 
IMC.CH,R1 

R1 

ARDWRT ,R1,CLR.ZA 
R1,~(SP) 
ARDWRT , (SP) 
(SP)+,CLR.ZA 
IMTMOD 

.+ 

#1 ,LOOPK 
LOOPK , TEMP2 
R3 
ACLR.Z,aDPC 
aDPC 

PC ,WAITF 

R1 

R2 


R2,aDYR 
PC ,WAITF 


;DPU ONLY ?? 
:NO, 


EXECU UTE. 
: EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


*“CLRMEM’* RO Lite AND TEST DATA. 
DISPLAY MODE (INTERLACE/NON-INTERLACE) IS TRANSPARENT. 


IF SHORT MODE, CYCLE X A Y = 0 AND 2 (ODD VS EVEN), 
THEN CYCLE Y HOLDING X AT O. 

REPEAT EACH PIXEL READ 10 TIMES AFTER QUICK PASS. 
MODE, CYCLE X FOR EVERY Y (512 X 512 ADDRESSES), 
READING EACH PIXEL ONLY ONCE. 


LRTST: JSR 
J 


i TITLE 
; CONFIGURE VSV SYSTEM. 


; BLAST LUT. 


; BR IF MEMORY ON THIS CHANNEL 


; INSERT CHANNEL OF MEMORY TO TEST 


: SKIP NEXT IF SHORT MODE... 
OTHERWISE, SET eee ONL Y 


LOOPK 
FIRST). 


:SAVE A COPY OF 
:R3_ = PATTERN (Ors 


[XCT "'CLEAR MEM 10 o". 


RESUME, XCT TO ines ¥@ 1°". 


“WAIT "TIL DON 
INIT X ADDRESS.. 
:..AND Y ADDRESS. 


SET Y ADDRESS. 


SEQ 0188 
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_ wee TEST 28 IMA 


MAGE MEMORY CLEAR=SET 


H 15 
17:22 PAGE 98-1 


SEQ 0189 


b KKK KEKE KEKE EEE KKK KKK BEGIN SEGMENT. 


7122 070734 3$: BGNSEG 
7123 070736 010177 112074 MOV 
7124 070742 004737 027454 JSR 
7125 070746 004737 023524 JSR 
7126 970752 017704 112056 MOV 
7127 070756 100015 BPL 
7128 070760 043704 003074 BIC 
7129 070764 020304 CMP 
7130 070766 001423 BEQ 
7131 070770 HRDERR 
7132 071010 000412 BR 
7133 071012 004737 026756 10$: JSR 
7134 071016 HRDERR 
ab 071036 4$: ENDSEG 
7137 071060 013737 003234 027700 5$: MOV 
7138 071046 020227 000004 6$: CMP 
thy 071052 103006 BHIS 
7141 €71054 020127 001776 7$: CMP 
7142 071 001403 BEQ 
7143 071062 062701 000002 ADD 
7144 071066 7e BR 
7145 071070 020237 003250 8$: CMP 
7146 071074 001404 BEQ 
7147 071076 005001 CLR 
7148 071100 062702 000002 ADD 
149 071104 7 BR 
7150 077106 005103 9$: COM 
7151 071110 043703 003074 BIC 
7152 071114 001275 BNE 
7153 
7154 071116 11$: 
7155 071116 005237 072414 INC 
7156 071122 023727 072414 000004 CMP 
7157 071130 103624 BLO 
ab. | 071132 ENDSUB 
7160 071134 CLTNEW: BGNSUB 
7161 0711 052737 000006 072440 BIS 
7162 071144 012737 071454 071452 MOV 
7163 071152 017700 000274 1$: MOV 
7164 071156 100515 BMI 
7165 071160 042737 001777 071562 BIC 
7166 071166 050037 071562 BIS 
7167 071172 005700 TST 
7168 ; BNE 
7169 071174 404 BR 
7170 071176 012777 071546 111626 MOV 
7171 071204 000403 BR 
7172 071206 012777 071562 111616 2$: MOV 
ate 071214 7 027454 3$: JSR 
7175 071220 005037 072414 CLR 
7176 071224 013700 072414 4$: MOV 
7177 071230 006300 ASL 
7178 071232 016001 003256 MOV 


R1,@DXR ;NOW READ=-BACK PIXEL DATA... 
PC ,WwAITF 
PC, ERRCHK 
@DSR,RS Pra BL 

10$ [BR IF DPU HUNG (PRB FAILURE). 
PDM,R4 70K, JUST KEEP THE DATA BITS. 
R3,R4 31S DATA RIGHT ?? 
4$ ‘BR IF WRONG. 

castes ;DATA INCORRECT. 
PC, ,RELEAS RELEASE *'HUNG'' D 

PRBHNG z.--REPORT ERROR AND’ QuIT 

; EEK KEKE EEE KEKE KKK EES END SEGMENT. 

TEMP2 ,LOOPK sRESET LOOPER. 

R2,A4 IF *’SHORT'' MODE, HOLD X. 

8$ z..-AT 0 FOR Y = 4 TO MAX. 
R1,4MAXX 

;BR IF AT MAX X. 
#2,R1 ;COTHERWISE, BUMP xX. 
.. AND CONTINUE. 

R2, YMAX 

9$ ;DONE IF AT MAX 

R1 ; OTHERWISE. RESET” x. 

#2,R2 ;++-BUMP Y 

$ - AND CONTINUE. 

3 > COMPL IMENT DATA PATTERN. 
PDM,R3 

$ ;RESTART 1°S PATTERN. 

MC.CH ; DO NEXT CHANNEL 

IMC.CH, #4 

CLRT1 ; LOOP THRU ALL 4 CHANNELS 
#6,IMC.IR ;LET READ SEE ALL BITS 
A#CLMTAB,CLMPTR :START AT BEGINNING OF PATTERN TABLE 
@aCLMPTR,RO GET PATTERN TO — TO 


8$ 

#1777 ,CLR.D2 
RO,CLR.D2 

RO 


2$ 

2$ 

ape tete Ore 
#CLR.D2,aDPC 
PC ,WAITF 
IMC.CH 
IMC.CH,RO 

RO 
MEMTAB(RO) ,R1 


ZNEGATIVE IF DONE ALL 

CLEAR OUT OLD PIXEL PATTERN 

; INSERT THE NEW ONE 
[1S NEW ONE 0? 

7IF NO, GO DO *’SETMEM’’ FUNCTION. 

7DO ‘‘SETMEM’’ TO O UNTIL NEW MICROCODE READY 
z1F YES, DO THE *’CLRMEM’’ 


:“"CLEAR'* TO THE PATTERN 
zWAIT FOR DONE 


START CHECKING AT CHANNEL 0. 
2GET CHANNEL TO CHECK 

MAKE A WORD INDEX 
“GET MASK FOR VALID PIXEL BITS 
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eee TEST 28 IMAGE MEMORY CLEAR=SET SEQ 0190 
7179 071236 001445 BEQ 7$ IF 0, NO CHANNEL HERE. GO TO NEXT. 
7180 071240 010137 603072 MOV R1,PDF + SAVE vA ie MASK 
7181 071244 005101 COM R1 + COMPL EMENT IT 
7182 071246 057701 000200 BIS @CLMPTR,R1 : INSERT THE PATTERN 
7183 071252 006201 ASR R1 + SHIFT IT DOWN TO BITS <7:0> 
7184 071254 006201 ASR R1 

7185 071256 010146 MOV R1,-(SP) ;PUT PATTERN IN LOW BYTE, 
7186 071260 110166 000001 MOVB R1,1(SP) ‘AND HIGH BYTE. 
7187 071264 012601 MOV (SP)+,R1 PUT IT BACK INTO R1. 
| 7188 071266 012700 000400 MOV #256. ,RO :GET COUNT OF NUMBER OF WORDS TO FILL (256.) 
7189 071272 013702 003240 MOV FREE ,R2 ;GET ADDRESS TO +41 TEST DATA. 
7190 071276 010122 5$: MOV R1,/R2)+ FILL THE TEST BUFFER 
7191 071300 005300 DEC RO 
7192 071302 001375 BNE 5$ 
7193 071306 013737 003240 072416 MOV FREE, IMC.TA s TELL CHECK ROUTINE WHERE IT IS. 
7194 071312 010237 072450 MOV R2,IMC.RA s...- AND WHERE ” PUT THE MEM DATA READ. 
ies 071316 005037 072436 CLR IMC.Y sSTART AT Y = 
7197 071322 6$: BGNSEG ; KK KKK KKK KKK KKK KKK KKK K KKK EK BEGIN SEGMENT. 
7198 671324 004737 071600 JSR PC, IMCHK READ AND CHECK A LINE ? MEMORY DATA. 
ah 071330 ENDSEG : qnceccecceuncecceqeeenetet END SEGMENT. 
7201 071332 023737 072436 003250 CMP IMC.Y, YMAX ;DONE LAST LINE? 
7202 071340 001404 BEQ 7$ *MOVE ON TO NEXT CHANNEL IF YES. 
7203 071342 062737 000002 072436 ADD #2,1MC.Y :1F NO, BUMP Y & GO FOR MORE. 
7204 071350 000764 BR 6$ 
7205 071352 005237 072414 7$: INC IMC.CH ; INCREMENT THE CHANNEL NUMBER. 
7206 071356 023727 072414 000004 CMP IMC.CH, #4 :DONE LAST CHANNEL? 
7207 071364 002717 BLT 4$ : IF NOT, GO FOR MORE. 
7208 071366 062737 000002 071452 ADD #2,CLMPTR :IF YES, MOVE ON TO NEXT PATTERN 
7209 071374 005737 002504 TST IMTMOD ; SHORT TEST? 
7210 071400 001264 BNE 1$ 3 NO. 
7211 071402 023727 071452 071470 CMP CLMPTR,#CLMSHT ; YES. DONE? 
7212 071410 001260 BNE 1$ 3 NO. 
7213 =: VES. 
7214 
7215 971412 8$: 
7216 071412 ENDSUB 
7217 071414 004737 030072 JSR PC, TSTEND 
ak | 071420 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
7220 ;CLR.Z: DNOP,CLRMEM,STOPN :CLEAR IMAGE MEMORY. 
7221 071424 17 176400 177000 CLR.2Z: PROTEC! CHO, PROTEC! CH1, paiste cHe, PROTEC! CH3 
7222 071434 176074 CLR.ZA: RDWRT 
7223 071436 116000 170100 173000 APNT!LO,SETMEM,STOPN ;CLEAR MEMORY THIS WAY UNTIL NEW MICROCODE READY 
ese 071444 117774 170100 173000 CLR.D: APNT!ALL,SETMEM,STOPN :SET IMAGE MEMORY TO 1°S. 
7226 
7227 -MACRO CLP.D  CPAT 
7228 <CPAT *BI 16>! <=-CPAT-1817*BI T2> 
7229 . ENDM 
ieee 071452 071454 CLMPTR: .WORD CLMTAB 
7232 071454 000000 CLMTAB: 0 
7233 071456 CLP.D 17 
7234 071460 CLP.D 10 
7235 071462 CLP.D 4 





—_—_—__-—--—- - -- —-—-——- --- ---- 
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| 
| eee TEST 28 IMAGE MEMORY CLEAR=SET SEQ 0191 
7236 071464 CLP.D 2 
7237 071466 CLP.D 1 
7238 071470 CLMSHT: CLP.D 14 
| 7239: 071472 cLP.D 11 
7240 071474 CLP.D 12 
7241 071476 CLP.D 3 
7242 071500 CLP.D «5 
7243 071502 CLP.D 6 
7244 071504 CLP.D 7 
7245 071506 001774 1774 
7246 071510 177777 -1 
7247 071512 000000 000000 000000 0,0,0.0,0.0 
708 071526 000000 000000 000000 0,0,0,0,0.0.0,0 
7250 :DISPLAY FILES FOR CLEARING MEMORY: 
7251 071546 176076 176474 177074 CLR.Z2: RDWRT!CHO,RDWRT!CH1,RDWRT ! CH2..RDWRT ! CH3 
738 071556 170140 173000 CLRMEM, STOPN 
7254 071562 117774 CLR.D2: APNT!ALL 
7255 671564 176074 176474 177074 RDURT ! CHO, RDWRT!CH1,RDWRT!CH2,RDWRT ! CH3 
7256 671574 170100 173000 SE TMEM, STOPN 
7258 
7259 ; 
7260 + SUBROUTINE = READ & VERIFY 1 LINE OF IMAGE MEMORY. 
7262 TENTER WITH: 
7263 ; IMC.CH = MEMORY CHANNEL TO READ (0. 1s 2. OR 3) 
7264 ; IMC.Y = Y POSITION OF LINE TO BE R 
7265 ; IMC.RA = ADDRESS OF 512.-BYTE mrFER “0 READ DATA INTO 
7266 ; IMC.TA = ADDRESS OF 512.-BYTE BUFFER TO TEST AGAIN 
7267 : (DATA MUST INCLUDE 1°S IN NON-EXISTENT Bit POSITIONS TO 
7268 : CATCH BAD DRIVERS & pBUS LINES) 
7270 071600 013700 072414 IMCHK: MOV IMC.CH,RO :GET CHANNEL # 
7271 071604 000300 SWABS s« RO +... INTO HIGH BYTE OF RO. 
7272 071606 042737 001400 072430 BIC #81T9'BIT8, IMC.ME “CLEAR OLD CHANNEL # FROM ENABLING INSTR. 
7273 071614 050037 072430 BIS RO, IMC .ME =SET IN THE NEW CHANNEL 
7274 071620 013737 072352 072354 MOV IMCTRY, IMCRCT 
7275 071626 012777 072420 111176 IMCHKR: MOV #IMC.SR,aDPC :START THE READ. 
7276 071634 004737 027454 JSR PC .WAITF z... WAIT FOR IT TO FINISH. 
7277 071640 013702 072450 MOV IMC.RA,R2 
7278 071644 062702 001000 ADD #512.,R2 :R2 GETS FINAL ADDRESS 
7279 071650 013703 072440 MOV IMC. IR,R3 "R3 GETS WHAT DSR SHOULD BE. 
7280 071654 027702 111152 CMP aDPC ,R2 t1S DPC CORRECT? 
7281 071660 001 BNE 1$ 
7282 071662 027703 111146 CMP aDSR,R3 :1S DSR CORRECT? 
7283 071666 001410 BEQ 2$ 
7284 071670 1$: 
7285 071670 HRDERR IMRF,PCSERR :PRINT IF NOT. 
7286 071710 005004 2$: CLR RS DXR SHOULD BE 0. 
7287 071712 013705 072436 MOV IMC.Y,R5 
7288 071716 062705 000002 ADD #2,R5 zDYR SHOULD BE Y+*2 
7289 071722 027704 111110 CMP @DXR,R4 =TEST DXR 
7290 071726 001003 BNE 3$ 
7291 071730 027705 111104 CMP aDYR,R5 sTEST DYR 
7292 071734 001410 BEQ 4$ 


< 


t-t ee 
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8 IMAGE MEMORY CLEAR@SET 


| wee TEST 2 
—- 7293 071736 


| 7300 071776 
7301 072002 
7302 072006 
7303 072010 
7304 
7305 072012 
7 016 


NNN 
mnrny 
00 oO 
NOU 
oo°o°o 
NNN 
ee 
NNW 
> vi 
oO 


73 

7327 079193 
7328 
7329 072174 
7330 

7331 072176 


7342 072352 
7343 072354 


7344 
7345 072356 
7346 
7347 
7348 
7349 072414 


atta 


013737 
006237 


000000 
000000 
000000 
000000 


040 


163000 
000000 


000000 
072416 
072450 


000004 
002000 


072354 
071626 
072346 
177776 


177776 


000002 
177777 


177777 
177777 


072346 
072350 


040 


177776 


023056 
023060 


023056 
023060 


072346 


072346 
177777 


023056 
023060 


072350 


104 


3$: 
4$: 


5$: 
6$: 


10$: 


11$: 


12$: 


9$: 
BGNMSG 


ENDMSG 


IMCBDA: 
IMCRAM: 
IMCTRY: 
IMCRCT: 


IMRF : 


IMC .CH: 


HRDERR IMRF ,XYERR 
MOV #0,R1 ;R1 = & ADDRESS UNDER TEST. 
MOV IMC. TA,RS RG POINTS TO EXPECTED DATA 
MOV IMC.RA,R5 +R5 POINTS TO RECEIVED DATA 
CMP (R4) +, (R5)+ + CHECK THE DATA 
BNE 10$ 
ADD #4,R1 ;BUMP THE X ADDRESS 
CMP. R1,AMAXX+2 
BLT 5$ 
BR 9$ : EXIT WHEN DONE WITH LINE. 
DEC IMCRCT 
BMI +6 
JMP IMCHKR 
MOV R1,IMCBDA 2GET POSITION OF BAD DATA 
C =2(R4) ,-2(R5) LOW BYTE BAD? 
BEQ 12$ “BR IF NOT. 
MOVB =-2(R4) ,GDDAT “IF YES, GET THE DATA 
MOVB -2(R5) ,BADDAT 
ASL GDDAT sSHIFT IT TO LOOK LIKE DBUS DATA 
ASL GDDAT 
ASL BADDAT 
ASL BADDAT 
BIC #°C1774,GDDAT 
BIC #*C1774,BADDAT 
HRDERR IMDI,IMCERR 
BIT #2, IMCBDA DONE HIGH BYTE? 
BNE 6$ zs IF YES, GO BACK TO MAIN LOOP. 
ADD #2, IMCBDA 
CMPB -1(R4) ,-1(R5) ; COMPARE HIGH BYTES 
BEQ 6$ 
MOVB -1(R4) ,GDDAT 
MOVB -1(R5) ,BADDAT 
BR 11$ 
RTS PC 
IMCERR 
PRINTX TNAM 
MOV IMCBDA, IMCRAM 
ASR IMCRAM 
PRINTX #IMDIXC,IMCBDA, IMC.Y,PDF ,.GDDAT ,BADDAT 
PRINTX oO ike. IMCRAM, o” CH 
PRINTX #NULCR PRINT BLANK LINE 
. WORD 0 :X POSITION FOR PRINTOUT 
.~WORD 0 ; SUSPECT RAM 
. WORD 0 
WORD 0 
ASCIZ / DMA PIXEL READBACK FAILURE/ 
EVEN 


pee-tenee 


SEQ 0192 





—---—-—— 
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| wee TEST 


7350 072416 


7359 072452 
7360 072454 


IMAGE MEMORY CLEAR=SET 


000000 
176000 176400 177000 


176074 
114000 000000 


000000 
163006 
By 4 000001 


0004 
160000 


173000 


IMC. i 0 DDRESS OF TEST BUFFER 
IMC.SR: Aine CHO, protet chi PROTEC! CH2,PROTEC!CH3 
IMC.ME: RDWR ZENABLE | SELECTED MEMORY 
m.y APNT "0 ne x=0 
IMC.IR: IMR8!6 READ, 2 8-BIT PIXELS/WORD, ALL BITS 
512.,1 31 FULL LINE 
256. ; WORD op 256. 
IMC.RA: .WORD 1600CO ;READ BUFFER 
STOPN ; (SHOULD STOP BY ITSELF) 
END. TEST 


© Re ERE RRR EEE REE ERR EEE EERE EEE ARERR AEE EEE ERE REE 


-* 


Py 
e 
“|e 
° 
. 
Py 


END TEST 28 


© Be Be Be He I eR TTT TOTTI TREE EERE EERE EKER EREREEEEE 


SEQ 0193 


Pee 


| M 15 
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eee TEST 29 IMAGE MEMORY INTERLACE SEQ 0194 
7362 
5 EERE REET EEE EEE ERR EEREEEEEER EH 
** 
3* BEGIN TEST 29 = IMAGE MEMORY INTERLACE 
* 
: Fe IT RAE ERE EERE 
: (ITERATION COUNT = 10.) 
7363 072536 005737 002502 TST DPUMOD ; DPU ONLY? 
7364 072542 001402 BEQ INLAC ; NO. EXECUTE. 
73605 072544 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
7367 
7368 CHECK MEMORY INTERLACE / NON= INTERLACE BY WRITING A POINT AT 0,0. 


7369 IF MEM IS INTERLACED, THE PIXEL DATA AT 0,2 SHOULD BE (NON-ZERO) . 


rary : «F MEM IS NON-INTERLACED, THE PIXEL DATA AT 0,2 SHOULD BE (ZERO). 
7372 072550 iNLAC : COMBEG 

C72550 004737 027702 JSR PC,TSTGO ; TITLE. 

072554 004737 026074 JSR PC,DPRESET ; DO SOFT INIT. 
7373 072560 004737 030414 JSR PC, CONFIG ; CONFIGURE VSV SYSTEM. 
7374 072564 005005 1$: CLR RS : INIT CHAN PTR. 
ar? 072566 004737 026650 JSR PC,CLRRW ; CLEAR ALL MEMORIES. 
7377 072572 BGNSEG p KKKKK KKK KKK KKK KKK KKK KKK << BEGIN SEGMENT. 
7378 072574 010504 2s: MOV R5,R4 ; GET MEMORY TABLE ENTRY FOR THIS CHAN. 
7379 072576 006304 ASL R4 : 
7380 072600 016401 003256 MOV MEMTAB(R4) ,R1 : (SAVE IT IN R1 & R3). IS THERE A MEM? 
7381 072604 010103 MOV R1,R3 Z 
7382 072606 001450 BEQ 4$ ; NO. 
7383 072610 010504 MOV R5,R4 ; GET CHAN IN BITS 8,9. 
7384 072612 000304 SWAB R4 ; 
7385 072614 052704 176034 BIS AWRT RS ; SET WRITE INST FOR CURRENT CHAN - 
7386 072620 010437 072776 MOV R4,11$ ; > IN DISPLAY FILE. 
7387 072624 DPSTART #10$ s VES. 

072624 012777 072766 110200 MOV aye _ : START THE DPU. 

072632 004737 027454 JSR PC,WA : WAIT FOR DISPLAY STOP. 

072636 032737 020000 003270 BIT eaiTis. SYCTAB : 1S MEM NON-INTERLACED? 
7389 072644 001401 BEQ 3$ : YES. (R1 = EXPECTED FOR NON-INTERLACED). 
7390 072646 005001 » | - £10 R1 : NO. ADJUST R1 TO EXPECT FOR INTERLACED. 
7391 072650 012777 000002 110162 3$: MOV #2,aDYR : PIXEL READ (POINT 0,2) INTO R2. 
7392 072656 004737 027454 JSR PC ,WAITF : 
7393 072662 012777 000000 110144 MOV #0,aDSR ; 
7394 072670 017702 110140 MOV aDSR,R2 E 
7395 072674 042702 176003 BIC #176003,R2 ; 
7396 072700 074203 XOR R2,R3 : AND PIXEL READ WITH MEM TAB VAL. 
7397 072702 040302 BIC R3,R2 3 
7398 072704 IFERROR INLE,INLEX 

072704 020102 CMP R1,Re > OK? 

072706 001410 BEQ 64$ » VES. 

072710 HRDERR- INLE,INLEX, ; NO. 

072730 64$: 
7399 072730 005205 4$: INC R5 ; NEXT CHAN, 
7400 072732 020527 000004 CMP R5,A4 ; DONE? 
gt 072736 001316 BNE 2s ; Te 

s ¥ 
















eee TEST 29 
7403 072740 
7404 072742 
072742 
072746 
072750 


072752 


072756 
7405 072762 
7406 


7414 
7415 €73010 


em 3 


N 15 
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IMAGE MEMORY INTERLACE 


004737 
103401 
000402 
000137 


004737 


Frente 13 b KRKKK KERR EK KEKE KKK KKK KKK END SEGMENT. 
OM: 
027646 JSR PC ,LOOP ; REPEAT ‘TIL LOOPER EXPIRES. 
BCS 65$ 
BR 66$ 
072564 65$: JMP 1$ 
030072 66$: JSR PC,TSTEND ; PRINT ERROR SUMMARY, IF REQ‘D. 
EXIT TSi ; EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


+ DISPLAY FILE. 
176400 177000 10$:  PROTEC!CHO,PROTEC!CH1,PROTEC!CH2,PROTEC!CH3 
11$:  WRT!CHO 
040000 000000 APNT!ALL,1!0,0 
STOPN 


END. TEST 

DA UISIIOISIIOISIIOISIISIDIOIIIOIIIISIDIISIDIIOIUIOIIIIDIDIDIDIDIUIDIOIUIDIOIIIUIDIIIOIDIDIDIDIITIDITITIOIITITITIOIO TO TITS 
+ 

* 

s* END TEST 29 
” 

° 
e 


wrrrr Te CCT C CCC CCC CC ACC CCAC AAPA PP CPPCC PCS PPC SESE CPPS SSS SPP PPPS S RS 


Be 


ne =—-— —--——— -- —- 
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| ySV11/VS11 == GRAPHIC SYS. 
eee TEST 30 IMAGE MEMORY PATTERNS SEQ 0196 
j 7417 
3 EE RERER ARERR RERAR RARER AAERAARARAAAEAAAAREAAAAAAA AETHER ATAAT ARE ARAERE 
** 
| * BEGIN TEST 30 = IMAGE MEMORY PATTERNS 
*® 
| : RERAARRERARATAREARARRAREE SESAAAAAAEAARAAARARAREERARERAREREAAKRAAAEAHAAAAREAA HAE 
: (ITERATION COUNT = 1.) 
| 7418 073070 O37 x2 002502 TST DPUMOD ;DPU ONLY ?? 
| 7419 073074 001402 BEQ PATTST sNO, EXECUTE. 
st 073076 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
74 $ 
7422 : waite. THEN READ=BACK AND TEST PIXEL DATA PATTERNS. 
7423 ; USE FOUR DATA PATTERNS PER hi, ats FOLLOWS: 
7426 : 1. OUR 2 8 * 
7425 : 2. 01010101 FOUR air 7 
7426 ; 3. 10101010 FOUR 2 BIT 2°S 
og 44 é 4. 11111117 FOUR 2 BIT 3°S. 
7429 ; DISPLAY MODE a IS TRANSPARENT. 
7430 3; IF SHORT MODE, CYCLE : Ay = 0 AND 2 (ODD VS EVEN), 
7431 :; THEN CYCLE Y HOLDING ~ 
7432 ; READ EACH PATTERN 10 TIMES AFTER QUICK PASS. 
7433 : IF LONG MODE, CYCLE X FOR EACH Y (512 X 512 ADDRESSES), 
ate : READING EACH PATTERN ONLY ONCE. 
7436 073102 004737 027702 PATTST: JSR PC,TSTGO TITLE 
7437 073106 004737 030414 JSR PC, CONFIG : CONFIGURE VSV SYSTEM. 
ag 073112 004737 027054 JSR PC,LUMIN ; BLAST LUT. 
7440 073116 BGNSUB 
7441 073120 005037 072414 CLR IMC.CH START AT CHANNEL 0 
7442 073124 013701 072414 PATT1: MOV IMC.CH,R1 
7443 073130 006301 ASL R1 
7444 073132 016101 003256 MOV MEMTAB(R1),R1 
7445 073136 001002 BNE +6 ; BR IF MEMORY ON THIS CHANNEL. 
7446 073140 000157 073506 JMP 11$ 
7447 073144 010137 003072 MOV R1,PDF 
7448 073150 005101 COM R1 
7449 073152 010137 003074 MOV R1,PDM 
7450 073156 013737 027700 003234 MOV LOOPK , TEMP2 sSAVE A COPY OF LOOPK. 
7451 073164 013701 072414 MOV IMC.CH,R1 
7452 073170 000301 SWAB R1 
7453 073172 BISw3 #RDWRT,R1,CLR.ZA 
073172 010146 MOV R1,-(SP) 
073174 052716 176074 BIS ARDWRT, (SP) 
073200 012637 071434 MOV (SP)+,CLR.ZA 
7454 073204 DPSTART ACLR. 2 
073204 012777 071424 107620 MOV ACLR.Z,aDPC ; START THE DPU. 
073212 004737 027454 JSR PC, WAITF ; Dog FOR DISPLAY STOP. 
7455 073216 005001 CLR RI = X POINTER, 
7456 073220 005002 CLR R2 ‘RD = Y POINTER 
7457 073222 012737 040000 074126 MOV al, wat. Xx ; INIT DISPLAY CODE x... 
7458 073230 005037 074130 CLR WRT.Y .AND Y 
7459 073234 012705 074112 1$: MOV #PATS,R5 + PATTERN POINTER => R5. 


7460 073240 012503 MOV (R5)+,R3 71ST PATTERN... 








r- 


-——— iseliniaia 
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GRAPHIC SYS. DIAG MACRO M1113 29-JAN-81 
| eee TEST 30 IMAGE MEMORY PATTERNS 
7461 073242 043703 003074 2$: BIC 
| et 0732466 042737 001777 074124 BIC 
rer 073254 050337 074124 BIS 
| ny 3 073260 BGNSEG 
7467 ies 4 012777 074124 107542 MOV 
7468 07 004737 027454 JSR 
7469 0 3570 010177 107536 MOV 
7470 073300 004737 027454 JSR 
7471 073304 010277 107530 3$: MOV 
7472 073310 004737 027454 JSR 
7473 073314 017704 107514 MOV 
7474 073320 043704 003074 BIC 
7475 073324 020304 CMP 
7476 073326 001410 BEQ 
7477 073330 HRDERR 
7478 073350 9$: LOOPTO 
073350 004737 027646 JSR 
673354 103753 BCS 
7479 073356 013737 003234 027700 MOV 
oe 4 073364 ENDSEG 
7482 073366 013737 003234 027700 4$: MOV 
7483 073374 012503 MOV 
7484 073376 100321 BPL 
7485 073400 020227 000004 5$: CMP 
oe) 073404 103011 BHIS 
7488 073406 020127 001776 6$: CMP 
7489 073412 001406 BEQ 
7490 073414 062701 000002 ADD 
7491 073420 062737 000002 074126 ADD 
7492 073426 70 BR 
7493 073430 020237 003250 7$: CMP 
7494 07 00142 BEQ 
7495 073436 5001 CLR 
7496 073440 012737 040000 074126 MOV 
7497 073446 062702 2 ADD 
7498 073452 062737 000002 074130 ADD 
ates 073460 BR 
7501 073462 004737 026756 10$: JSR 
7502 073466 HRDERR 
7503 073506 11$: 
7504 073506 005237 072414 INC 
7505 073512 023727 072414 000004 CMP 
7506 073520 10 BLO 
oe 073522 ENDSUB 
7509 073524 MPTNEW: BGNSUB 
7510 073526 013700 003240 MOV 
7511 073532 012701 000045 MOV 
7512 073536 012702 000011 1$: MOV 
7513 073542 012703 074150 MOV 
7514 073546 012320 2$: MOV 
7515 073550 5302 DEC 





aan 


C 16 
17:22 PAGE 100-1 
SEQ 0197 


. «NEXT PATTERN => R3. 
SET NEXT PIXEL PATTERN... 
t...IN DISPLAY CODE. 


f KCKKKK KEKE K EKER KKK KKK KKK BEGIN SEGMENT. 


PDM,R3 
#1777,WRT.D 
R3,WRT.D 


kT mal sWRITE NEXT PATTERN, THIS PIXEL. 
R1,aDXR ;SET THE X ADDRESS. 
PC ,WALTF 
-@adY sNOW READ-BACK PIXE. DATA... 
PC ,WAITF 
aDSR,R Sees TO MS. 
PDM,R4 70K, STRIP ANY CRAP. 
R3,R4 {AND TEST THE DATA. 
9$ [BR IF OK 
IMDI, IMDERR ;DATA INCORRECT ERROR. 
3$ ; RE one 
PC,LOOP 
TEMP2 ,LOOPK ;RESET LOOPER 
: CRE KKK KKK K KKK EEK KEKE KKK END SEGMENT. 
TEMP2 ,LOOPK ;RESET LOOPER. 
(R5)+,R3 :GET NEXT PATTERN... 
2$ . 1% IF NOT TERMINATOR. 
R2,A4 “HOLD x 
7$ 7...AT 0; “FOR Y 4 TO MAX. 
R1,AMAXX 
7$ ;BR IF AT MAX X, 
#2,R1 ZOTHERWISE, BUMP X... 
#2, WRT .X 
1$ z..--AND CONTINUE. 
R2, YMAX 
11$ ;ALL DONE IF MAX Y. 
R1 OTHERWISE, RESET X... 
#1,WRT.X 
° .--BUMP Y... 
#2,WRT.Y 
1$ .-AND CONTINUE. 
PC,RELEAS RELEASE ‘'HUNG'* D 
PRBHNG + ...REPORT ERROR AND “QuIT. 
IMC.CH 
IMC.CH, #4 
PATT1 
RO ;START THE ne BUFFER’’ AT 1ST FREE LOCATION 
156. /MPLEN+MPLEN,R1 ;SETUP # OF TIMES TO REPEAT PATTERN TABLE 
#MPLEN,R2 :GET LENGTH © PATTERN TABLE 


AMPAT2,R3 
ei , (RO) + 


D ITS ADDRESS 
COPY Y PATTERN TABLE INTO WRITE BUFFER 


a 


D 16 
| ySV11/VS11 == GRAPHIC SYS. DIAG MACRO M1113 29-JAN-81 17:22 PAGE Soore 


eee TEST 30 IMAGE MEMORY PATTERNS SEQ 0198 
7516 073552 001375 BNE 2$ 
7517 073554 005301 DEC R1 D0 IT ENOUGH TIMES FOR 1 SCAN LINE, ALL PATTERNS 

7518 073556 1367 BNE 1$ - i 
7519 073 010037 074174 MOV RO ,.MPCBAS NEXT FREE LOCATION IS BASE OF ‘COMPARE BUFFER 

7339 073 005037 072414 CLR IMC.CH START TESTING AT CHANNEL 0. 
7522 073570 737 026650 3$: JSR PC, CLRRW ;CLEAR ALL MEMORIES 
7523 073574 013700 072414 MOV IMC.CH,RO [GET CHANNEL NUMBER 
7524 073600 SWAB RO j.-.INTO BITS <9:8> ; 

073602 042737 001400 074206 BIC C43 MPT .WE —, OLD CHANNEL FROM ‘WRITE-ENABLE*’ INSTRUCTION 
7526 073610 050037 074206 BIS RO,MPT .WE Foss AND INSERT Ne CURRENT CHANNEL 
7527 073614 013700 072414 MOV IMC.CH,RO T THE CHANNEL | A GAIN 
7528 073620 006300 ASL RO -AND MAKE IT 4 WORD INDEX 
7529 0736 016001 003256 MOV MEMTAB(RO),R1 ;GET THE "MEMORY PARAMETER (PIXEL MASK) 
7530 07 001516 BEQ 8$ :1F ZERO, NO MEMORY ON THIS CHANNEL. 
7531 073630 010137 003072 MOV R1,PDF ;SAVE PIXEL MASK (FOR ERROR REPORTS) 
7532 073634 006201 ASR R1 ;GET PIX MASK INTO LOW BYTE 
7533 073636 00620 ASR R1 
7534 07 005101 COM R1 COMPLEMENT IT, TO ALLOW SETTING OF UNUSED 
7535 073642 010146 MOV R1,-(SP) ;...-BITS IN COMPARE WORDS 

07 110166 000001 MOVB R1,1(SP) ;BOTH BYTES. 
7537 073650 012601 MOV (SP)+,R1 
7538 073652 013700 074174 MOV MPCBAS ,RO START AT BEGINNING OF COMPARE BUFFER 
7539 073656 012702 000412 MOV #256. +MPLEN+1 ,R2 
7540 07 013703 003240 MOV FREE ,R3 ;AND AT WRITE BUFFER 
7541 07 012310 4$: MOV (R3)+, (RO) ;COPY WRITE BUFFER INTO COMPARE BUFFER, 
7542 073670 050120 BIS R1,(RO)+ :..-SETTING UNUSED BITS. 
7543 073672 5302 DEC R2 
7544 073674 001374 BNE 4$ 
944 073676 010037 072450 MOV RO, IMC.RA s;MAKE NEXT FREE ADDRESS THE START OF READ BUFFER. 
7547 073702 005037 072436 CLR IMC.Y START TESTING AT FIRST LINE (Y=0) 
7548 073706 013737 072436 074214 5$: MOV IMC.Y MPT .WY ;TELL WRITER WHERE TO WRITE 
7549 073714 005037 074172 CLR MPOF F CL EAR THE PATTERN OFFSET 
7550 073720 013737 003240 074220 6%: MOV FREE MPT .WB :GET BASE OF WRITE BUFFER 
232) 073726 063737 074172 074220 ADD MPOF F ,MPT .WB z..-AND ADD THE OFFSET 
e7 073734 BGNSEG J KKKK KKK KKK KKK KKK KK KKK KKK << BEGIN SEGMENT. 
7555 073736 geree 074176 107066 MOV AMPT.ST ,@DPC THEN WRITE DATA FROM THERE. 
7556 073744 004737 027454 JSR PC ,WAITF 
7557 073750 013737 074174 072416 MOV MPCBAS,IMC.TA :GET BASE OF COMPARE BUFFER 
7558 073756 063737 074172 072416 ADD MPOFF,IMC.TA z..-AND ADD THE OFFSET TO IT. 
7559 073764 004737 071600 JSR PC, JIMCHK “READ THE LINE AND COMPARE IT TO COMPARE BUFFER 
ay 073770 ENDSEG p KKKKK KK KKK KKK KKK KKK KKK < END SEGMENT. 
7562 073772 005737 003230 TST INTLAC ; INTERLACED MODE? 
7563 073776 001014 BNE 7$ zI1F YES, SKIP AHEAD. 
7564 074000 032737 000002 072436 BIT #2,1MC.Y 
7565 074006 001010 BNE 7$ 
7566 074010 062737 000002 072436 ADD #2,1MC.Y ilF MITER CED NEXT LINE SHOULD READ THE SAME 
7567 074016 004737 071600 JSR PC, IMCHK SCHECK FOR IT. 
7568 074022 162737 000002 072436 SUB #2,1MC.Y 
7569 074 062737 000002 074172 7$: ADD #2 ,MPOF F ;BUMP THE OFFSET 
7570 074036 023727 074172 000022 CMP MPOFF ,AMPLEN*2 ;DONE ALL PATTERNS? 
7571 074044 002725 BLT 6 z1F NOT, LOOP FOR MORE ON THIS SAME LINE. 
7572 074046 062737 000002 ADD #2,1MC.Y :IF DONE ALL, 


072436 





2 erenne mem ae 


eee TEST 30 
7573 074054 
7574 074062 
7577 074076 


7578 074100 


| 
7575 0746064 
7576 074070 
79 
7580 074102 


ioe 074122 
7588 074124 


7593 074146 


7600 074150 


7607 074166 
7608 074170 
7609 
7610 
7611 
7612 074172 
7613 074174 
7614 


7615 
7616 074176 


7622 074222 
7623 


7624 
7625 074224 
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IMAGE MEMORY PATTERNS 


o03737 


177777 
116000 
040000 


072436 


072414 
072414 


030072 


176400 
000000 


003250 


000004 


164000 
164000 


177000 


PATS: 


MPAT2: 


PAT.D 
MPLEN=.-MPAT 2/2 


MPOFF : 
MPCBAS: 


CMP IMC.Y, YMAX ;DONE LAST LINE? 
BLOS 5$ IF NOT, GO FOR MORE 
INC IMC.CH :BUMP THE CHANNEL NUMBER. 
CMP IMC.CH, #4 ;DONE ALL CHANNELS? 
T 3$ ;1F NOT, DO THEM. 
ENDSUB 
JSR PC, TSTEND 
EXIT TST ; EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
0 sPAION 1 ( 
0524 ;PATRN 2 (01010101) 
1250 z:PATRN 3 (10101010) 
1774 :PATRN 4 (11111111) 
-1 SLIST TERMINATOR, 
APNT!LO :PIXEL DATA SET ON THE FLY. 
‘** SLIKEWISE ADDRESSES. 
DNOP , DNOP , DNOP 7 IN CASE WE WANT TO CHANGE.. 
D ,DNOP, .MODE FOR P=R-B DEBUG. 
ST * STOP AND TEST THIS PIXEL. 
LTEEH EHH HFH SHH Stott H Ht tt teste oso et 
-MACRO PAT.D MDX 
<MOX=B1 18>! HOX*B1T4>!<-MOX-1E179B1T12>!<-HOX-1E17> 
PAT.D 0O sPUT 4-BIT PATTERN INTO BITS <7:4> AND <11:8>, 
PAT.D 1 -AND ITS COMPLEMENT INTO <15:12> AND <3:0> 
PAT.D 2 “USE FLOATING 1°S AND 0" ‘Ss 
PAT.D 4 
PAT.D 10 
PAT.D 7 
PAT.D 13 
PAT.D 15 
AT 16 
USE ODD # OF WORDS TO MAXIMIZE CHANCES OF FINDING 
3 DUAL-ADDRESSING PROBLEMS. 
0 OFFSET FOR WRITING AND COMPAR 
9 :BASE ADDRESS OF PAA BUFFER 


Tg ae FOR WRITING THE PATTERN INTO THE LINE 


MPT.S PROTEC: CHO, PROTEC!CH1,PROTEC!CH2, reset On 
PT ae, WRT! CHO sENABLE A CHANNEL FOR WRITING 
APNT, 0 START AT X=0 
MPT.WY: 0 
BM18 USE BIT-MAP=1, WITH A COUNT OF 512. PIXELS 
MPT.WB: 0 
STOPN 


LEFHE HFEF EHH F FFF FFF FFE HHT HHH HHH Fe tse rere errr ee 


RARER EEE AERA ATTA AAA ATTA TATRA ATA TATE RAR TARA ROR eT eS 


-* 
’ 
-* 
. 


END. TEST 


END TEST 30 


SEQ 0199 


on a ane eee 


| 
| 
| 


F 16 
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ewe TEST 30 


IMAGE MEMORY PATTERNS 


-* 
. 
{PRR eeReereReeearanneeATeeNNeREHeReHeReHeeanTaRseNAsALaAeHLALeA AH EAI se 


SEQ 0200 


er ee _— _—_— —— 


| 6 1 
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eee TEST 31 SPAR SEQ 0201 
> veg | 
| peeeeneenreeaaeerereeanererenennteenaenaanaaaaerennananaraneneAaRes aaeene 
i* BEGIN TEST 31 = SPARE 
TARA ORT RARER HER ERE EE ETE TTR H HARTER RERREER ERE R AAA A ATTRA ERA E EEE 
z; (ITERATION COUNT = 1.) 
7628 074264 005737 002502 TST DPUMOD :DPU ONLY ?? 
7629 074270 001402 BEG SPARTS sNO, EXECUTE. 
ee 074272 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
7632 074276 004737 027702 SPARTS: JSR PC, TSTGO 
EXIT TST z ***NOT VET CODED*** 


7633 074302 
7634 
Pesce cece eee e soo 


7635 
7636 074306 END. TEST 


PROTA A TAA AAA RAA EEE OTAE EAA A AAA A REET ETAA AAA A ERR EHH EERE EERE HS 
* 
a 


* 
;@ END TEST 31 

5% 

PeeearerseneraraaarenearererenenerenaranesanaaAaAeRANeAAAAARAeAsAAAN SES 


——— 
a — 


ae 
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SYSTEM VERIFICATION DISPLAY 


eee TEST 32 
7639 


074374 
074400 
074402 


074422 


2 
074426 
074434 


5 
074440 
7 


7658 074442 
7659 074450 
7660 074454 
7661 074456 


662 
7663 074474 


7672 074540 
7673 074544 
7674 074550 
7675 074554 


005737 
001402 


012777 
004737 


000446 
114000 
152000 
103774 

104 


173006 


002502 


027702 


027054 


074442 
027454 


000540 
110146 


040 
000140 


001640 


106376 


000100 


111 
000140 


001540 


RARER EERE EEE EAA ERA ARERR ERAAAAEAERE RETA Ee 


* 


BEGIN TEST 32 = 


SYSTEM VERIFICATION DISPLAY 


RRA AERA RARER TERERAEERAEREREEAE EE REREERE EERE ED 


; (ITERATION COUNT = 1.) 


IS1: 


LOGO: 


TST 
BEQ 
EXIT 


DPUMOD ;DPU ONLY ?? 
VIS1 iNO, EXECUTE. 
TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


SMORGASBORD, ONE FRAME THAT HAS A BIT OF EVERYTHING. 
FIRST, A DEC LOGO (SORT OF), THEN VIOLATE THE EDGES 
AT LOWER LEFT AND UPPER RIGHT. 


JSR PC,TSTGO 

JSR PC,CLRRW ; CLEAR. 

JSR PC ,DBL INK ; DISABLE BLINKING. 
JSR PC,LUMIN ; BLAST THE LUT. 
MOV #LOGO,aDPC ; START WITH THE LOGO. 
JSR PC,WAITF 

JSR PC,PAUS.5 

BR V1S2 z..-AND CONTINUE. 
APNT, 540, 100 

SETCB,ACAT 

CHAR! ALL 


“ASCIZ /DIGITAL/ 


APNT.140, 140 sEXCEED EDGES AT LOWER LEFT... 
LV 

LXY 1,-200,0 

LXY 1,0,- 

LXY 1,200 

LXY 1,0,20 

APNT . 16 051540 :...AND AT UPPER RIGHT. 
LV 

LXY 1,200,0 

LXY 1.0, 300 

LXY 1,-200,0 

LXY 1,0,-300 

STOPN 


SEQ 0202 


t-fof-- > + 


| VSV11/VS11_ == GRAPHIC 
| eee TEST 32 


| 
| 
} 


ae 


7684 602 
7685 074610 
686 
7687 074614 
7638 


7714 0 

7715 074736 
7716 074740 
7717 074742 
7718 074744 
7719 074746 
7720 074750 


I 16 
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SYSTEM VERIFICATION DISPLAY 


000456 


114000 
113774 


107774 


130000 


173000 


074616 


027454 


000500 


000220 
074710 
001460 


106246 
106234 
106222 


000002 


000620 
000620 


NOW 1 LARGE AND 2 SMALL OCTAGONS. 


V182: 


LOCT: 


SOCT1: 
SOCT2: 


JSR PC ,WAI 
MOV #socl DPC 
JSR PC WA 
MOV osbere, a 
JSR PC ,WAITF 
JSR PC ,PAUS.5 
BR v1S3 
APNT,500,2 
LVEC!ALL 
LXY 1,576,0 
LXY 1,436,436 
LXY 1.0,576 
LXY 1,7436,436 
LXY 1,-576,0 
LXY 1,-436,-436 
LXY 1.0,-576 
LXY 1,436,-436 
STOPN 
APNT 220,620 

JMP, +10 
APNT . 1460,620 
SVEC ‘ALL 
SXY 1,76,0 
SXY 1,56,56 
SXY 1,0, 76 
SKY 1.-56,56 
SXY 1.-76,0 
SxY 1.-56,-56 
SXY 1,0,-76 
SXY 1,56,-56 
RPNT 
SMY U,20,50 
SKY 1,20,50 
SXY 1,20,0 
SxY 1,-20,20 
SxY 1,720,720 
SxY 1,20,-20 
STOPN 


MOV unite #LOCT,aDPC 


31 LARGE ONE... 
z..-AND 2 SMALL ONES. 


.-AND CONTINUE. 


3 1 LARGE OCTAGON... 


.--AND 2 SMALL ONES. 


35 REL POINTS IN CENTER. 


CENTER. 


SEQ 0203 


fe ne eee 
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1 
_ eee TEST 32 SYSTEM VERIFICATION DISPLA SEQ 0204 
) 772 : 
act, : NEXT, SHOW GRAPH/HISTO ¥ IN UPPER LEFT. 
7725 074752 012737 011260 075126 vIS3: MOV #1240!GHIINH,GY*2 ;PLOT GRAPH Y STARTING AT 1240! GHIINH. 
076760 012777 075100 106064 MOV #GRY , aDPC SSTART GRAPH Y. 
| «775? 074766 900402 SKP2 
7728 074770 005277 106036 1$: INC C 
7729 074776 737 027654 JSR PC ,WAITF 
75000 042737 010000 075124 BIC #GHI INH, GY*2 
| 7731 075006 737 000006 075124 ADD #4,GY*2 sINCR Y AMPLITUDE... 
7732 075014 023727 075126 001606 cmp GY+2,#1606 
| 733 075022 001362 BNE i$ :LOOP UNTIL DONE. 
7735 075024 012737 051240 075152 MOV #HST'1240!GHIINH.HY¥*2 ;NOW, HISTO Y STARTING AT 1240!GHIINH. 
77% 075032 012777 075134 105772 MOV #HSY ,aDPC 
7737 075040 SKP2 
7738 075042 005277 105764 28: INC apPc 
7739 075066 004737 027654 JSR PC ,WAITF 
7740 075052 042737 010000 075152 BIC #Gii1 INH HY*2 
7741 €75060 737, 000010 0675152 ADD #10,H¥+2 sINCR Y AMPLITUDE... 
7742 075066 023727 075152 041550 CMP nyed mst !1550 
7748 075074 001362 BNE 2$ :...AND LOOP TIL DONE. 
7745 : JSR PC,PAUS.5 
7746 075076 0004631 BR v1s6 :...AND CONTINUE. 
7748 075100 114000 000100 001240 GRY:  APNT,100,1240 
7749 075106 113776 LVEC TALL :DRAW BASE LINE. 
7750 075110 LM 1,340.0 
7751 075114 LxMy U.-340,0 
7752 675120 174106 GMI! zx INCR = 4 FOR GRAPH. 
775$ 075122 127774 001240 GY: GHY ‘ALL .0!1240 
7754 075126 173000 160000 075122 STOPN, DJMP, GY 
7756 075134 150000 001240 HS¥:  SETHB,1260 :HISTO BASE LINE. 
7757 075140 114000 000140 001240 APNT, 140,1240 
7758 075146 176110 Gx! 10 :X INCR = 10 FOR HISTO. 
7759 075150 1277764 061260 HY: GHY ‘ALL HST! 1260 
7760 075154 173000 160000 075150 STOPN, DJMP ,H¥ 
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_ eee TEST 32 SYSTEM VERIFICATION DISPLAY SEQ 0205 
77 5 
7763 > NEXT, GRAPH/HISTO X IN LOWER RIGHT. 
7765 075162 012737 011340 075334 VIS4: MOV #1340!GHIINH,GX+2 ;PLOT GRAPH X STARTING AT 1340!GHIINH. 
7766 075170 012777 075310 105634 V AGRX , aDPC ;START GRAPH X. 
7767 075176 000402 SKP2 
| 075 005277 105626 1$: INC apP 
7769 075204 737 027454 JSR PC ,WAITF 
7770 075210 042737 010000 075334 BIC #GH] INH, GX+2 
7771 075216 737 000004 075334 ADD #4 ,GX+2 ;INCR X AMPLITUDE... 
7772 075224 023727 075334 001704 CMP Ox#2, #1704 
73 075232 001362 BNE ;LOOP UNTIL DONE. 
7775 075234 012737 051340 075362 MOV rate tip me ata HX+2 ;NOW, HISTO X STARTING AT 1340!GHIINH. 
7776 075262 012777 075344 105562 MOV #HSX ,, @DPC 
7777 075250 SKP2 
7778 075252 005277 105554 2s: INC aDPC 
779 075256 737 027454 JSR PC ,WAITF 
7780 075262 042737 010000 075362 BIC #GHI INH, HX+2 
7781 675270 062737 000010 075362 ADD #10,HX+2 ;INCR X AMPLITUDE... 
7782 075276 023727 075362 041650 CMP HX+2,#HST! 1650 
aay, 075304 001362 BNE 2$ 3..-AND LOOP TIL DONE. 
7785 ; JSR PC ,PAUS.5 
a5} 075306 000431 BR VIS5 ;...AND CONTINUE. 
7788 075310 114000 901340 000100 GRX:  APNT,1340,100 
7789 075316 113774 LVEC!ALL ;DRAW BASE LINE. 
7790 075320 LXY 1,0,340 
7791 075324 LXY U,0,-340 
7792 075330 174104 GYI!4 7Y INCR = 4 FOR GRAPH. 
7793 075332 123774 001340 GX: GHX ! ALL ,0!1340 
fae! 5336 173000 160000 075332 STOPN,DJMP , GX 
7796 075344 150000 001340 HSX: — SETHB, 1340 ;HISTO BASE LINE. 
7797 075350 114000 001340 000140 APNT, 1340, 140 
7798 073396 174110 GY1!10 7Y INCR = 10 FOR HISTO. 
7799 075369 123774 041340 HX: GHX !ALL ,HST! 1340 
7800 075364 173000 160000 075360 STOPN, DJMP , HX 


-——_-—_---________ - - ——- : 
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VSV11/VS11_== GRAPHIC SYS. DIAG 

eee TEST 32 SYSTEM VERIFICATION DISPLAY SEQ 0206 
7802 
7803 NEXT SHOW BIT MAP MODE 1 AT BOTTOM CENTER, 
oe + AND BIT MAP MODE O AT TOP CENTER. 
7806 975372 012700 177777 VIS5S: MOV #-1,R0 ; SET PIXEL DATA PATTERN... 
7807 075376 004737 027020 JSR PC,FILL2 j..-AND FILL BUFFER WITH... 
bs j..-ALTERNATE WORDS. 
7810 075402 013737 003240 075552 MOV FREE ,B148 ; SET BUFFER ADDRESS. 
7811 075410 012737 136340 075550 MOV wen? 320, B148-2; SET OPCODE = BM14 x 340 
7812 075416 012777 075530 105406 MOV #B14,aDPC :XCT BM14, DRAWS A DASHED... 
7813 075424 004737 027454 JSR PC WAI TF e+ eLINE (4 ON, 4 OFF)... 
7814 3..-FOR 340 PIXELS. 
7815 075430 012737 137400 075550 MOV #BM18!400,B148-2 :SET OPCODE = BM18 Xx 400 
7816 075436 012777 075542 105366 MOV #B18,aDPC :XCT BM18, DRAWS A DASHED... 
7817 075444 004737 027454 JSR PC,WAITF feeb INE (2 ON, 2 OFF)... 
os “FOR 400 PIXELS. 
7820 075450 012700 000377 MOV #377 ,RO 
res C75454 004737 027014 JSR PC,FILL1 
7823 075460 013737 003240 075600 MOV FREE ,B048 ; SET BUFFER ADDRESS. 
7824 ; MOV #BM04'M64,B048-2 ; 4 BIT X 64 SQUARE. 
7825 075466 012737 134010 075576 MOV #BMO4 'M32'EX2, B048-2 ;_4 BIT X 64 SCUARE. 
7826 075474 012777 075556 105330 MOV #B04 ,aDPC DO IT. 
7827 075502 004737 027454 JSR APs oa 
7828 : MOV #BM08!M64 ,B048-2 ; 8 BIT X 64 SQUARE. 
7829 075506 012737 135010 075576 MOV WaMO8 IMS?! EXS, B048-2 8 BIT X 64 SQUARE. 
7830 075514 012777 075570 105310 MOV #308 , aDPC : DO THAT TOO. 
+4 075522 004737 027454 JSR PC WAI TF 
7833 075526 1$: 7 JSR PC,PAUS.5 
oe 075526 000430 BR VISSA ;..-AND CONTINUE. 
7836 075530 114000 000400 000240 814: APNT 400,240 : 4. ON 4 OFF FOR 340 PIXELS. 
7837 075536 160000 075550 DUMP, . +14 
7838 075542 114000 000300 000340 818: APNT , 300,340 ; 2 ON 2 OFF FOR 400 PIXELS. 
7839 075550 136340 BM14!340 
7840 075552 000000 B148: 0 
93! 075554 173000 STOPN 
7843 075556 114000 000540 001340 B04: APNT, 540, 1340 
7844 075564 160000 075576 DJMP, .+1 
7845 075570 114000 001040 001340 B06: APNT, 1040, 1340 
7846 075576 134001 BMO4 !M64 
7847 075600 000000 B048: 0 
7848 075602 164000 164000 DNOP, DNOP 
7849 075606 173000 STOPN 


er eee ee 
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eee TEST 32 SYSTEM VERIFICATION DISPLAY SEQ 0207 
7851 
785 : NEXT SHOW RUN-LENGTH MODE DIAGONAL BARS BETWEEN THE BM1 AND BMO LINES. 
785 USES 16 INTENSITY LEVELS, FROM 0 TO MAX. THE O LEVEL RUN-LENGTH IS VARIED 
7854 FROM 4 TO 24(8) FOR 20 LINES OF DATA, WHILE THE OTHER RUN LENGTHS REMAIN 


56 
7857 075610 


787 5730 
7878 075732 
7879 075734 





112737 
012777 


000403 
012777 
004737 
123727 
103003 
105237 
000764 


000430 


000004 
075660 
000001 
027454 
075671 
075671 


075670 


075671 
105206 


105176 
000024 


000320 


006340 


v 


CONSTANT AT 14. 
ISSA: MOVB 

MOV #VRLF ,aDPC 
BR 2s 

1$: MOV #1, aDPC 

2s: JSR PC ,WAITF 
CMPB VALE #1, #24 
BHIS 3$ 
ag VRLF 2+1 

3$: : JSR PC,PAUS.5 
BR VIS6 


THE LINES ARE DRAWN FROM TOP TO BOTTOM (YDOWN=1). 
#4, VRLF2+1 


Fa INITIAL COUNT FOR O=INTENS AT 4 
;START THE FILE 

7SKIP OVER THE RESUME 

: RESUME ont DISPLAY 


DONE 
‘DONE 50¢8) LINES? 
FINISH IF YES. 
;BUMP INITIAL COUNT IF NO. 
3...THEN XCT AGAIN. 
;PAUSE 
j..THEN CONTINUE. 


2 DISPLAY FILE FOR VISUAL RUN-LENGTH MODE 
VRLF APNT 320 


3 ntl BETWEEN BM1 & BMO 


VRLF 1: RNLN! YDOWN R RUN-LENGTH MODE, GO DOWN THE SCREEN 
VRLF2: .BYTE 0,4 ;0 INTE Netty START AT LENGTH=4 

“WORD 6020.6 ode 6060 s INCREASING INTENSITY, LENGTH=14 

. WORD $100.6130- 40,6160 Seeee MORE 

-WORD 6200,6220,6240,6260 j.-.+AND MORE 

-WORD 6300,6320,6340,6360 j..-.-AND MORE 

STOPN ; STOP 


«WORD 0 
DJMP , VRLF 2 


;COUNT = 0 FOR NEWLINE 
; THEN JUMP BACK FOR MORE 


N 16 
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SYSTEM VERIFICATION DISPLAY 


wee TEST 32 


7922 076116 
7923 

7924 076120 
7925 076126 
7926 076132 
7927 076134 
7928 076136 
7929 076142 
7930 

7931 076144 


7936 076170 
7937 076174 


012737 


004737 


112000 
040000 
000300 


076372 
027454 
076404 
076230 


020000 
076402 


076266 
020000 
076404 
076230 


020000 
076402 


076266 
004000 
110670 
027172 


104626 


027514 


076400 
076402 
076404 


105030 
090000 


076404 
040000 


076402 
020000 


076404 
060000 


003220 


<—e- Se Se Be Be Se Be Be Se Be Be He Be Se Be 


FINALLY, AT DEAD-CENTER: 

A CIRCULAR SWEEP FROM 12 O*°CLOCK THRU 360 DEGREES. 
INCREMENT ee TD bo | Ai SUCH THAT ALL LEVELS 
ARE DISPLAYED IN 360 D 

3 VECTORS PER LEVEL * ese rEVELS = 768 VECTORS TOTAL. 
(OCTAL 3 * 400 = 1400) 

ACTUAL COLOR/INTENSITY SPECTRUM aoe UPON HOW MANY 
ahs! BITS ARE AVAILABLE, AND HOW THE LOOK-UP-RAM IS 


D (GREY=SCALE BY DEFAULT, IF INSTALLED) . 
2 BITS <9:8> = 4 LEVELS. 
4 BITS <9:6> = 16" LEVELS (4 PER QUADRANT). 
6 BITS <9:4> = 64 LEVELS (LUT REQ'D). 
8 BITS <9:2> = 256 LEVELS (LUT REQ'D). 
1S6: MOV MLVEC'LO,RBL =; INIT DISPLAY FILE. 
MOV #1'0,RBX 
MOV #300,RBY © 
MOV #3,R1 ; SET FOR 3 VECTORS PER LEVEL... 
MOV #4,R3 +...AND INCR LEVEL BY ‘'L1'' 
i$: MOV R1,R2 : SCRATCH COPY LEVEL COUNTER. 
MOV #RBO, ADPC ‘START, QUAD 1. 
JSR PC ,WAITF 
2$: CMP RBY ,40 sDELTA Y MIN ?? 
BEQ 3$ ‘DONE QUAD 1 IF SO. 
JSR PCat 
3$: BIS AMXY ,RBY [QUAD 2, DX POS, DY NEG. 
4$: CMP RBX,#1!0 “DELTA X MIN ?? 
BEQ 5$ [DONE QUAD 2 IF SO. 
JSR PC,Q2 
BR 4$ 
5$: BIS AMXY , RBX UAD 3, DX NEG, DY NEG. 
6$: CMP RBY ,AMXY !0 ‘DELTA Y -MIN ? 
BEQ 7$ [DONE QUAD 3 IF * 50. 
JSR PC,03 
BR 6$ 
7$: BIC #MXY , RBY :QUAD 4, DX NEG, DY POS. 
8$: CMP RBX,#I'MXY!0  =:DELTA XK -MIN ?? 
BEQ 9$ [DONE QUAD 4 IF SO. 
JSR PC,04 
BR 8$ 
9$: MOV #4000 SHADLY : FINALLY, SET SHADING DELAY.. 
MOV ANTSC8+2, t...AND CYCLE THRU 16 SHADES... 
10$: MOV (R5)+,R1_ +. . OF EACH BASIC (NTSC) COLOR. 
BEQ. 11$ * BR WHEN ALL DONE. 
JSR PC, SHAD16 
BR 10$ 
18: - J PC,OUTLIN : OUTLINE THE SCREEN. 


; PAUSE 3 SECONDS... 
; cNABLE BLINKING. 


; PAUSE 3 SECONS... 


JSR PC. PAUSE 1 
JSR PC ,PAUSE1 


= 
“ 
Da 
v 
wig 
™ 
@ 
a 
_ 
2 
x 





SEQ 0208 
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VSV11/VS11_ == GRAPHIC SYS. DIAG MACRO M1113 28-OCT-81 11:23 PAGE 109-1 
eee TEST 32 SYSTEM VERIFICATION DISPLAY 

7961 076336 004737 027514 JSR PC,PAUSE1 

7962 076342 004737 105356 JSR PC, DBLINK 

7963 076346 004737 027514 JSR PC PAUSE 1 

7964 076352 004737 027514 JSR PC PAUSE 

7965 076356 004737 030072 VISXIT: JSR PC, TSTEND 

7966 076362 EXIT TST 


: DISABLE BLINKING. 


; EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


SEQ 0209 


~_ 
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eee TEST 32 SYSTEM VERIFICATION DISPL SEQ 0210 
7968 076366 013705 076540 Q1:03: MOV RBX,RS ;QUAD 1 AND 3, dcr DX 'TIL.. 
7969 076372 042705 176000 BIC #°C1777,R5 a R DY. 

7970 076376 020527 000300 CMP R5 #300 ‘DEL TA XK LMA? 
7971 076402 001404 BEQ 
076406 062737 000002 076540 ADD #2,RBX ZNO, INCR DELTA X. 
7973 076412 000403 SKP3 
7974 076414 162737 000002 076542 1$: SUB #2,RBY :YES, DECR DELTA Y 
973 076422 000416 BR QXxiT SCHECK FOR LEVEL CHANGE AND EXIT 
7977 076424 013705 076542 Q2:04: MOV RBY,RS5 ;QUAD 2 AND 4, INCR DY ‘TIL... 
7978 076430 042705 176000 BIC #°C1777,R5 ‘ MAX. HEN ADECR DX. 
076434 020527 000300 CMP R5 4300 “DELTA ¥ MAX ? 
7980 076440 001404 BEQ 1 
7981 076442 062737 000002 076542 ADD #2,RBY :NO, INCR DELTA Y 
7982 076450 000403 SKP3 
983 076452 162737 000002 076540 1S: SUB #2 ,RBX :YES, DECR DELTA X. 
7985 076460 012700 000600 QXIT: MOV #600,RO ; DELAY APPROX 3 MSEC... 
86 076464 005300 1$: DEC RO . BETWEEN VECTORS. 
7987 076466 001376 BNE 1$ 
076470 005302 DEC R2 ; LEVEL CHANGE REQ'D ?? 
7989 076472 001011 BNE 2$ ‘NOT Y 
076474 010102 MOV R1,R2 :VES, RESET yfOUNTER.. 
7991 076476 060337 076536 ADD R3,RBL ...INCREM 
7992 076502 042737 176000 076536 BIC #901777, RBL 3. «AND erRIP’ LEVEL.. 
7993 076510 052737 112000 076536 BIS #LVEC'LO,RBL os REPLACE OPCODE. 
076516 005277 104310 2$: INC aDPC ; ESUME.. 
7995 076522 004737 027454 JSR PC ,WAITF Se WAIT.. 
076526 000207 RTS PC SAND EXIT. 
7998 : DISPLAY FILE FOR CIRCULAR RAINBOW. 
8000 076530 114000 000776 000736 RBO: § APNT.HAFX,HAFY60 :SET ORIGIN AT CENTER. 
8001 076536 112000 RBL: -LVEC!LO SLEVEL WILL INCREMENT. 
8002 076540 040002 RBX: =‘! ‘DITTO X... 
8003 076542 000300 RBY: 300 Rs 
8004 076544 164000 173000 164000 DNOP, STOPN, DNOP 
8005 076552 160000 076530 DJMP,RBO 


8006 
8007 076556 


END. TEST 


SRA EEEEEEEEEEEEKEEERREREEREEEEEEEEREEEREREREREEEEREREREEEE 


i. 
= END TEST 32 


SERA EEREERERERERREREREREEERREEEEE 








Dd 
hah 4s 3} a GRAPHIC_SYS. DIAG MACRO M1113 3 De, 11:23 PAGE 111 


eee TEST JOY=STICK VERIFICATION (STANDALONE) 


8009 


8010 076656 
8011 076662 
8012 076664 
8013 
8014 


8015 
8016 


9 
aSt 076670 
8022 076674 
6676 


8057 077140 


005737 
001402 


004737 


004737 
005057 


012737 


000414 


012777 


030070 


027702 


030414 
077302 


146072 


077302 


003270 


077150 


4 
oooooscoocoo 
oO Oo0ooO 
we SS NN 
one SE ENN 


ALSOOCOCCSCO 


077152 


103664 


SEQ 0211 

FARRER EERE EERE EERE REE REE RK 
;* 
3* BEGIN TEST 33 = JOY=STICK VERIFICATION (STAND-ALONE) 
*® 
PITTI II IIIT TTT Tit iti titi titii iit iti titi iii iitiiii tit ittt titi titi i 
; CITERATION COUNT = 1.) 

TST TESTK 

BEQ JSV ; BR IF CLEAR TO RUN. 

EXIT TST ; EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 


; THIS TEST WILL RUN ONLY IF IT IS SPECIFIED BY ITSELF, AND IF MANUAL 
: iby pl be IS ALLOWED (UAM=0), AND, OBVIOUSLY, ONLY IF A JOY-STICK 


; ONCE STARTED, THERE IS NO EXIT, SAVE <*C>. 
JSV: JSR PC,TSTGO ; TITLE. 
UAL 
COMPLETE JSVA1 
PRINTF 
XIT TST ; EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
JSVA1: PRINTF #SCOUT 
JSVA: JSR PC, —e : FIND THE CHANNELS 
CLR SELCHA SET ircree CHANNEL TO 0 (DEFAULT). 
GMANID MCHAN,SELCHA,O, 1400, 0,3.,YE 
MOV #CUON! CUIOFF. JCKXA 
BIS SELCHA,J 
MOV #CUIM, JC 
BIS SELCHA, JCXB 
MOV MCUIS,JCXC 
BIS SELCHA, JCXC 
MOV #CURD ,JCX 
BIS SELCHA, JCXD 
MOV SELCHA. JSPIXA 
ASR JSPIXA 
ASR JSPIXA 
BIS #CUWT ,JSPIXA 
MOV #CURD,10$ 
als SELCHA, 10$ 
MOV UNITN N,R1 
MOV SELCHA,RO 3; GET CHANNEL NO. (BITS 9-8) 
SWAB RO 
ASL RO ; MAKE WORD OFFSET 
TST SYCTAB(RO) ; IS THERE A JOYSTICK HERE? 
BMI 3$ 
R 2s 
3 TSTB STIK(R1) 


: sSTICK AVAILABLE THIS UNIT ?? 
: BGT JSTST zYES, GET ON WITH IT 


. 
SAAR EEEEEERERREREREEREREEEREEREREEREEEEKREEEEE 


3NO, CAN'T RUN. 


SHEARER EEEEERERRAEAEEREAAEAEEEAAAEEEAEAEEEEAEREREEEE 


Vv #1$,aDPC :DON'T KNOW, LET'S FIND OUT. 


VSV11/VS11_== GRAPHIC SYS. p 


see TEST 33 


8058 077146 
8059 dar 
8060 077152 
156 
162 


8070 077214 
8071 


0 
8072 077220 
8073 077220 


8074 
8075 077222 
8076 


0 
8081 077270 
8083 077302 


JOY-STICK V 


000403 


103416 


004737 
006200 


000137 


000431 
045 


103 
000000 


026756 


076744 


101 


110 


040 


101 


os 
113 28-0CT-81 11:23 PAGE 111-1 
STAND=ALONE ) 
SKP3 
1$: DNOP 3TRY TO READ CURSOR POSITION. 
10$: CURD, STOPN 
JSR PC,WAITF 
BCS 3$ 3;BR IF DPU RESPONDS TO STICK. 
PARKER RKEKE & REKEREREEREREREREREREERERREREREREERER ERE 
5, GUAR SSTIKERT) sOTHERWISE, SET FLAG = NO STICK. 
. FRR RERREEEEKRREEKEERERERERREREKEEREEEKE EE 
JSR PC,RELEAS RELEASE ‘'HUNG'’ DPU... 
2$: ASR 
PRINTF #NOSTIK,RO se» TEL L THE MAN 
JMP JSVA ; KEEP TRYING CF (FOREVER) '! 
3$: s MOVB #1,STIK(R1) 3SET FLAG = STICK AVAILABLE... 
BR JSTST 3eeeAND START ‘EM UP. 
NOSTIK: : %01/ 


eASCIZ = /%A == NON-EXISTENT SYNC CHANNEL 
EVEN 


; CHANNEL SELECTION QUESTION AND ANSWER. 


MCHAN: “ASCIZ /CHANNEL / 
SELCHA: oY 


; USER SELECTED CHANNEL (DEFAULT=0). 


SEQ 0212 





TEST 33 


8100 077360 

8101 Bees 

077372 

8102 077376 

8103 077404 
8104 

8105 grits 
06 


7434 
77440 


77442 


SoooocecKo ooo 
NN AN 

. 

a 

So 


WR 9 ODNOAUSWN $0 VONAUFSWN Ow” 
=) 
~ 
“ 
wi 
Nm 
So 


WWINWWINAWIWAWINIDINININNNNNID 2 2 A 2 OO OO HS 


JOY-STICK VERIFICATION (STAND-ALONE) 


005037 
012777 


000777 


004737 


ooo 
—— 


100306 
027454 
100316 


077752 
100004 


100006 
103372 
001777 
103362 
103354 


001777 
023524 
103306 
103300 
174000 
174000 


100442 


003172 


001777 
100004 
100006 


003170 
003172 


100470 
003170 


003172 


100470 
003170 
003172 
003172 
160360 


1$: 


2$: 


4$: 


6$: 
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TURN ON THE CURSOR AND DISPLAY IT'S CO-ORDINAT 
ON ''STOP’' INTERRUPT 

ON ''SWITCH'' INTERRUP 
ON 'MATCH'' INTERRUPT, MARK THE SPOT AS BEFOR 


PC,LUMIN 


#58, 2aJSSV 
SDYR 
MISPIXA 
#JSPIXA,aDPC 
PC, ,WAITF 
MJSPIX,@DPC 
PC ,GTCURS 
ge pene 
MKDYR,SDYR 
6$ 

aDPC 

#1777 MATCH 
— 
@aDYR,SDYR 
1) lal ti 
#1777 MATCH 
PC,ERRCHK 
@DXR,SDXR 
aDYR,SDYR 
3$ 

Jsoxye JXYPE 


006, SDx 


174 
#174000, SDYR 


MARKS2.E EMK+2 


SDXR MARK 
SDYR.MARK+2 
62$ 

#1777 MATCH 


MKDXR, SDXR 
MKDYR,SDYR 


ES ON SCREEN. 
UPDATE READ-OUT IF STICK IS MOVING. 
T, MARK _THE CO-ORD WITH A LITTLE "x" 
E, AND SAY 'MATCH" 


; BLAST THE L 
INIT IN READ/URI TE MODE. 


: FILL PIXEL BUFFER. 
:_SET lat POINTER. 
:SET STOP.. 


- «MATCH. 
:...AND SWITCH VECTORS. 
CLEAR OLD JSX,JSY CO-ORDS. 


; START THE DPU. 

; WAIT FOR Riot ar STOP. 
7START THE DISPLAY. 
...AND WAIT FOR INTERRUPT. 


;_ON ‘‘STOP’*, BREAK.. 
:GET & MASK’ THE CURSOR DATA 
.-AND CHECK STICK MOTION. 
; BR IF STICK IS MOVING. 


3 DITT 
3; OTHERWISE, Oust RESUME... 
3-.--AND DISMISS. 


3: "MATCH" == ENABLE TEXT 

2 SEE THAT _NO SIGN BIT SET ON MATCH 
-IF SET, REPORT ERROR 

SAND Poe DYR 


‘SKIP IF 

EPORT THE ERROR 
260 procs THE INTERRUPT 
: SWITCH’ <- DISABLE TEXT. 
[CHECK FOR ERROR CODE IN CSR 
;GET_X=COORDINATE ? TEST SIGN 


.ERROR IF SET. 
GET rr ppogeyre & TEST SIGN 
= ORT THE ERROR. 


REP 
: CLEAR SIGN & STATUS ON SAVED X 
CLEAR SIGN & STATUS ON SAVED Y 


ON EITHER... 
3++eERASE OLD MARKER... 


.-AND SET A NEW ONE. 
‘G07 O COMMON HANDLER. 


sSTICK MOVING, DISABLE TEXT. 
:SAVE OBSERVED CO-ORDS. 


SEQ 0213 


| 
ane 


7 










G1 
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wee TEST 33 JOY=STICK VERIFICATION (STANDALONE) SEQ 0214 


077654 62$: 


8140 
8141 077654 013737 100414 100336 MOV JSX,EX 

8142 077662 013737 100416 100340 MOV JSX4+2,EX+#2 

8143 077670 013737 100434 100352 MOV JSY,EY 

8144 077676 013737 100436 100354 MOV JSY4+2,EY+2 sERASE OLD X/Y. 

8145 077704 013701 003170 MOV SDXR,R1 

8146 077710 004737 027324 JSR PC,CNVRT sCONVERT X TO ASCII... 

8147 077714 010137 100414 MOV R1,JSX 

8148 077720 010237 100416 MOV R2,JSX+2 :...UPDATE READ-OUT. 

8149 077724 013701 003172 MOV SDYR,R1 

8150 077730 004737 027324 JSR PC, CNVRT :CONVERT Y TO ASCII... 

8151 077734 010137 100434 MOV R1,JSY 

8152 077740 010237 100436 MOV R2.JSY+2 :...UPDATE READ-OUT. 

8153 077744 012716 077376 MOV #1$, (SP) : SET PC TO RESTART... 

8154 077750 000002 RTI +...AND DISMISS. 

8155 077752 017737 103060 100004 GTCURS: MOV @DXR,MKDXR 

8156 077760 017737 103054 100006 MOV aDYR.MKDYR 

8157 077766 042737 174000 100004 BIC #174000, MKDXR 

8158 077774 042737 174000 100006 BIC #174000,MKDYR 

8159 100002 000207 RTS PC 

8160 100004 000000 MKDXR: 0 

161 100006 000000 MKDYR: 0 

8163 sERROR MESSAGES FOR JOYSTICK OPERATIONS: 

8164 100010 040 040 127 JSWTEX: .ASCIZ / WAITED TOO LONG FOR J.S. STATUS RETRIEVAL/ 
8165 100064 40 040 104 JSDXYE: .ASCIZ / DXR OR DYR SIGN NOT SET ON J.S. RETRIEVAL/ 
8166 100140 040 040 104 DXYME: .ASCIZ / DXR OR DYR SIGN SET ON J.S. MATCH INTERRUPT/ 
8167 100216 045 101 040 JXYPX: <ASCIZ /%A  DXR: X06%A DYR: XO6XAXN/ 


-EVEN 
8169 100254 BGNMSG JXYPE 
8170 100254 PRINTX 

ENDMSG 


#JXYPX ,ADXR,ADYR 
3 100304 





VSV11/VS11_== GRAPHIC SYS. DIAG MACRO M1113 yn, 11:23 


eee TEST 33 


ooooo 
ooo 
WWW 
UEW 
ON 


ooo 


0360 
364 


100460 


100462 
100470 
100472 


JOY-STICK VERIFICATION (STAND-ALONE) 


104000 


114000 
a> 


000100 


001460 
123 
060 

001460 
123 
060 


000000 


001540 
115 
000010 
060 
000260 
062 
000530 
065 
001116 
062 


000100 


001600 


060 
001540 


060 


001600 
130 
060 

001540 
131 
060 


001500 
101 
000716 
060 
000716 
065 
000716 
062 
000716 
065 


: DISPLAY CODE. 
JSPIXA: CUWT, 100,100 
STOPN 


JSPIX: 
JCXA: 


EX: 


EY: 
EMK: 


MATCH: 


DNOP 

sven, Outer 
SETCB,ACAT 

APNT, 1620, 1600 


HAR!L 
ASCII _/9000/ 


APNT, 1620, 1540 
CHAR 

“ASCII /0000/ 
APNT 

0 
SVEC 
SXY 1,-10,-10 
SXY U.20,0 
SXY 1,-20,20 
SXY U.20,0 
SXY 1.-16,-10 
APNT, 1460, 1600 
CHAR!ALL 


eASCII /JSX / 
eASCII_ /0000/ 
APNT, 1460, 1540 
CHAR 


ASCII /JSY / 
eASCII = /0000/ 
APNT 


P 
0,0 

SVEC 

SXY 1,-10,-10 
SXY °20,0 
SXY *=20,20 
SXY 20,0 


U; 

SXY 1.-10,-10 

APNT . 1540, 1500 

CHAR!LO 

-ASCII / MATCH/ 

APNT, 10. HAF Y60-20 
HARIA 

ASCH T 


eASCII_ /0250/ 


APNT, ,530, HAF Y60-20 


H. 
cASCiI 


/0520/ 
APNT, 1256-140, HAF Y60-20 


CHAR!A 
ASCII /1256/ 


H 1 
PAGE 113 


* 70000/ 
APNT , 260, HAF Y60-20 
HAR! 


sCURSOR ON, INT'S OFF. 
sASCII BASE ADDRESS. 
sERASE OLD X ... 


3.2-AND Y NUMERICS... 


3+eAND OLD MARKER. 


DISPLAY NEW X... 


3..AND Vise 


3.+AND NEW MARKER. 


: ‘'CHAR!ALL'* IF MATCH INTERRUPT 


NOW LABEL THE BOX VECTORS. 


SEQ 0215 
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xee TEST JOY=STICK VERIFICATION (STAND-ALONE) 
8231 100560 114000 001366 000716 APNT, 1526=140,HAF Y60=20 
8232 100566 103774 AR! 
8233 100570 061 065 062 ASCII _/1526/ 
8234 100574 114000 001636 000716 APNT, 1776-140, HAF Y60=20 
8235 100602 103774 i 
8236 100604 061 067 067 -ASCII  /1776/ 
8237 100610 114000 000716 000010 APNT ,HAFX=60, 10 
8238 100616 103774 CHARA 
8239 100620 060 060 060 SASCII /0000/ 
8240 100624 114000 000716 000250 APNT ,HAFX=60, 250 
8241 100632 103774 HAR!ALL 
8242 100634 060 062 064 SASCII  /0240/ 
8243 100640 114000 000716 000510 APNT ,HAFX=60, 510 
8244 100646 103774 CHAR'ALL 
8245 100650 060 065 060 -ASCII /0500/ 
8246 100654 114000 000716 001136 APNT ,HAFX~60, 1176-40 
8247 100662 103774 CHAR! 
8248 100664 061 061 067 “ASCII. /1176/ 
8249 100670 114000 000716 001376 APNT ,HAFX~60, 1436-40 
8250 100676 103774 CHAR! ALL 
8251 100700 061 064 063 “ASCII /1436/ 
8252 100704 114000 000716 001636 APNT ,HAFX=60, 1676-40 
8253 100712 103774 CHAR!ALL 
8254 100714 061 066 067 -ASCII /1676/ 
8256 100720 114000 001706 000010 APNT, 1776-70, 10 
8257 100726 103774 ARIA 
8258 100730 107 120 -ASCII /GP/ 
8260 100732 164000 164000 164000 BOXES: DNOP,DNOP,DNOP 
8261 100740 146016 JCXB:  CUIM 
8262 100742 114000 000000 000000 APNT,0.0 
8263 100750 113774 LVEC!ALL 
8264 100752 LXY 1,1776,0 
8265 100756 LXY 1.0,1676 
8266 100762 LXY 1.-1776,0 
8267 10076 LXY 1.0,-1676 
8268 100772 114000 000250 000240 APNT, 250,240 
8269 101000 110000 LVEC 
8270 101002 LXY 1,1256,0 
8271 101006 LXY 1.0,1176 
8272 101012 LXY 1.-1256,0 
8273 101016 LXY 1.0,-1176 
8274 101022 114000 000520 000500 APNT, 520,500 
8275 101030 110000 LVEC 
8276 101032 LXY 1,536,0 
8277 101036 LXY 1,0,476 
8278 101042 LXY 1,-536 
8279 101046 LXY 1,0,-476 
8280 101052 114000 000676 000636 APNT ,HAFX-64. , HAF Y50-64. 
8281 101060 134001 BM04 'M64 
8282 101062 000000 BMXx: 0 
8283 101064 114000 000756 000736 APNT ,HAFX=20, HAF Y60 
8284 101072 106000 SVECILO 
BBs 101076 Ky (836° 20 

Us- 

8287 101100 SXY eet: 





SEQ 0216 


:FINALLY... 
zeeeMY INITIALS. 


:*** FOR DEBUG *** 
: MATCH ON, SWITCH OFF. 


;AND DRAW NESTED BOXES. 


: A 64 SQUARE BIT MAP AT CENTER. 
: POINTS TO FREE CORE BUFFER. 


; CROSS AT CENTER (BLK ON WHITE) 


VSV11/VS11_== GRAPHIC SYS. 
TEST 33 JOY-STICK VERIFICATION (STAND-A 
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DNOP , DNOP , DNOP 
CUIS, SYNC#2 
CURD, STOPI 
DNOP, DNOP , DNOP 
DJMP ,BOXES 


END.TEST 


SERRE REE REE KEE KKK EKER EKEEEREEEKEEREEEEE 


END TEST 33 


MARRS SAASASALALSSLELAALALASLALASLALAS SSS SELES EES ESSE SESE ST TT CP TT PST 


SWI CH ON, MATCH “OFF 
:READ JSX/JSY, STOP, 
BUG * 


1 
ee =~ GRAPHIC SYS. DIAG MACRO M1113 oe 11:23 PAGE 114 
wee TEST 34 SELECTED DISPLAYS (STAND-ALONE) SEQ 0218 


8297 


SRE EERE EKER EERE 


* 
:* BEGIN TEST 34 = SELECTED DISPLAYS (STAND-ALONE) 
** 


MASE RSASSASASLLALASLLALALASLALESLAL ELSES SESE SEER ERE SST SCT PTS TPCT CTP SY 


; (ITERATION COUNT = 1.) 


8298 101224 005737 030070 TST TESTK 
8299 101230 001420 BEQ SELDIS : BR IF OK TO RUN. 
Bene 101232 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
8302 > THIS TEST CONSISTS OF A SELECTION OF DISPLAYS INDIVIDUALLY 
8305 : SELECTABLE BY THE USER AS FOLLOWS: 
8305 : DISPLAY DISPATCH TABLE. 
8307 101236 000000 DTAB: 0 : 0 = “TYPE THIS" 
8308 101240 102262 TBO > 1 = TURN BLINKING ON 
8309 101242 102320 TBOFF : 2 = TURN BLINKING OFF 
8310 101244 102356 BAR : 3 = COLOR BARS 
8311 101246 102556 DOTS :42+7%X 7 DOTS 
8312 191250 102702 HATCH : 5 = 7 X 7 CROSSHATCH 
8313 101252 103066 PERIM ; 6 = PERIMETER OUTLINE ! 
8314 101254 103106 COLID : 7 = BASIC COLOR ID 
8315 101256 103360 GUNID ; 8 = GUNS ID 
8316 101260 104526 SCRWHT ; 9 = ALL WHITE SCREEN 
8317 101262 104620 BLO 710 = BLOOM’ TEST (ALT. WHITE SCREEN & PERIMETER OUTLINE) 
8318 101264 104534 SCRRED :11 = ALL RED SCREEN 
8319 101266 104542 SCRBLU :12 = ALL BLUE SCREEN 
8320 101270 104550 SCRGRN :13 = ALL GREEN SCREEN 
8321 101272 DTABE: 
8322 000015 DTHIL=<DTABE~DTAB>/2~1 
8324 IT WILL RUN ONLY IF IT IS SPECIFIED BY ITSELF, AND IF MANUAL 
8325 ; INTERVENTION IS ALLOWED (UAM=0). 
8327 ONCE STARTED, THERE IS NO EXIT, SAVE <*C>. 
8329 : 
8330 ; CHANGE MODES VIA KEYBOARD: 
8352 SELECT DISPLAY (D) N<CR> 
833% WHERE N = DISPLAY NUMBER (SEE ABOVE). 
8336 101272 SELDIS: COMBEG 
101272 004737 027702 JSR PC, TSTGO : TITLE. 
101276 004737 026074 4eR PC DPRESET ‘ DO SOFT INIT. 
8337 101302 004737 027054 JSR PC. LUMIN * BLAST LUT. 
8338 101306 004737 102320 JSR PC. TBOFF : START OUT WITH BLINKING TURNED OFF. 
8343 101312 UAL 
8344 101314 BCOMPLETE IDLEX 
8345 101316 PRINTF #NOMAN 
8346 101336 EXIT TST 3; EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 





. 
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eee TEST 34 SELECTED DISPLAYS (STANDALONE) SEQ 0219 
8347 
8348 ; 
8349 : IDLE LOOP. WAIT FOR KBD ENTRY TO CHANGE MODES. 
8351 101342 IDLEX: PRINTF #SCOUT 
8352 101362 IDLE: GMANID SDLIST,DISSEL,D,-1,0,DTHIL, YES 
8353 101402 000410 BR 
8354 101404 IDLEA: GMANID SDASK,DISSEL,D, Pa ,0,DTHIL, YES 
8358 101424 005077 101404 IDLEB: CLR @DSR  :STOP THE DPU (IE., FOR BLOOM) 
8359 j*eeB JSR PC,WAITF. 
8360 ie*eB = JSR PC. WAITF 
8361 ieee JSR PC. WAITF 
8362 t***B JSR PC. WAITF :WAIT FOR STOP 
8363 101430 012701 000050 MOV #40. ,R1 ‘SET UP A TIMEOUT COUNTER. peenQ 
8364 101434 004737 027454 1$: JSR PC, WAITF ‘WAIT FOR THE STOP BIT peeeB 
8365 101440 103402 BCS 2$ ‘BR IF STOPPED. peeeB 
8366 101442 005301 DEC R1 [NOT STOPPED. BUMP COUNTER. peeeB 
8367 101444 001373 BNE 1$ ‘LOOP IF NOT STOPPED. peeeB 
8368 101446 2s: 
8369 101446 013700 101470 MOV DISSEL,RO 
8370 101452 001743 BEQ IDLE 
8371 101454 005037 101470 CLR DISSEL 
8372 101460 006300 ASL RO 
8373 101462 004770 101236 JSR PC, aDTAB(RO) 
8374 101466 000746 BR IDLEA 
8376 101470 000000 DISSEL: 0 : DISPLAY CURRENTLY SELECTED. 
8378 101472 040 040 060 SDLIST: .ASCII / OQ = “TYPE THIS''/ 
8379 101513 015 012 ‘BYTE 15,12 
8380 101515 040 040 061 ‘ASCII / “1 = TURN BLINKING ON/ 
8381 101543 015 012 “BYTE 15,12 
8382 101545 040 040 062 “ASCII / “2 = TURN BLINKING OFF/ 
8383 101574 015 012 “BYTE 15,12 
8384 101576 040 040 063 “ASCII / °3 = COLOR BARS/ 
8385 101616 015 012 “BYTE 15,12 
8386 101620 040 040 064 “ASCII / 4 = 7X 7 DOTS/ 
8387 101640 015 012 “BYTE 15,12 
8388 101642 040 040 065 “ASCII. / “5 = 7 X 7 CROSS-HATCH/ 
8389 101671 015 012 “BYTE 15,12 
8390 101673 040 040 066 ‘ASCII / “6 = PERIMETER OUTLINE/ 
8391 101722 015 012 “BYTE 15,12 
8392 101724 040 040 067 “ASCII /_°7 = BASIC COLOR ID/ 
8393 101750 015 012 “BYTE 15,12 
8394 101752 040 040 070 “ASCII / “8 = GUNS ID/ 
8395 101767 015 012 “BYTE 15,12 
8396 101771 040 040 071 “ASCII / “9 = ALL WHITE SCREEN/ 
8397 102017 015 012 “BYTE 15,12 
8398 102021 040 061 060 “ASCII / 10 = ALTERNATING WHITE SCREEN & PERIMETER OUTLINE/ 
8399 102103 015 012 “BYTE 15,12 
8400 102105 040 061 061 “ASCII / 11 = ALL RED SCREEN/ 
8401 102131 015 012 “BYTE 15,12 
8402 102133 040 061 N62 “ASCII / 12 = ALL BLUE SCREEN/ 
8403 102160 015 012 "BYTE 15,12 
8404 102162 040 061 003 “ASCII / 13 = ALL GREEN SCREEN/ 
8405 102210 015 012 “BYTE 15,12 
8406 102212 015 012 SDASK: <BYTE 15.12 








VSV11/VS11 == GRAPH 
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oe 33 
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/(BLINKING IS / 
(Hr?, Ff 
/SELECT DISPLAY / 


ne ee 






= 


PERPRRPLREL ELLER ELEEE 
PSE LOU MENS Se sear 





eee TEST 34 


aounew 
Aorenr 


105330 


105356 


000054 


> TURN BLINKING 


N 1 
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SELECTED DISPLAYS (STAND-ALONE) 


: TURN BLINKING ON. 


PC,EBLINK 
a 


OFF. 


PC ,DBLINK 
#°F ,SDO+1 
#°F ,SDO+2 
#*),SDO+3 
#*,,SD0*4 
PC 


ee ee 


; ENABLE BLINKING. 
; ADJUST PROMPT MSG. 


: DISABLE BLINKING. 
; ADJUST PROMPT MSG. 






* TEST 34 
8436 
8437 
8438 
8439 
8440 
8441 
8442 
8443 
8444 
8445 
8446 102356 
8447 102362 
8448 102366 
8449 102374 
8450 102400 
8451 102404 
8452 102412 
8453 102414 
8454 102420 
8455 102424 
8456 102426 
8457 102430 
8458 102434 
8459 102442 
8460 102450 
8461 
8462 102452 
8463 102456 
8464 
8465 102460 
8466 102466 
8467 102470 
8468 102474 
8469 102500 
8470 102504 
8471 102510 
8472 102512 


0 
000761 


004737 
000207 


160000 


027454 


000000 
001776 


102466 





102466 


100420 


102466 
102466 


000000 


BARS: 


1$: 


2$: 


3$: 


BGEN: 
BV: 


COLOR BAR GENERATOR. 
NUMBER AN 


OLOR OF BARS 
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Ete eat ON PIXEL S 


SIZE. 
S R NTSC RAINBOW (IF Lut INSTALLED), 
OR GRA ygene es DEPEND 


PIXEL SIZE AS FOLLOWS: 


S <9:8> = 4C SHA 
4 BITS <9:6> = 16 COLORS/SHADES 
6 BITS <9:4> = 64 COLORS/SHADES. 
8 BITS <9:2> = 256 COLORS/SHADES. 


JSR pe etere 
J PC,NTSC 
MOV raya co -BV 


MOV #2 360! 

MOV #BGEN, asec 
SKP2 

INC 


apPc 
JSR PC ,WAITF 

R2 
BEQ 3$ 

R1,BV 
BIC #°C1777,BV 
BIS #LVEC!LO,BV 
BR 2$ 


JSR PC,OUTLIN 
PC 


1'0, MXY!MAXY 
2, 6 


STOPN 
DUMP, BV 


sINIT DISPLAY. 
; NTSC COLORS (IF LUT AVAILABLE) 
zINIT DISPLAY CODE AT LVL 0... 
sAND INCREMENT BY LVL 1. 
; 256 PAIRS = 512 TOTAL. 


3;BR_WHEN FINISHED. 

; OTHERWISE, INCREMENT... 
3-+eAND STRIP THE LEVEL... 
3.«-AND REPLACE OPCODE. 

ee ° AND LOOP. 

; OUTLINE THE SCREEN. 

: RETURN TO IDLE LOOP. 


UP... 
. AND OVER... 
..AND OVER AGAIN. 





BoP ech i ON es ae 





woo 


SMOASMOALMIOOA SNA 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


pejofofofofolofelelololololololol~) 
Mrorenonanonofonofnononsrorofronofry 
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SELECTED DISPLAYS (STAND-ALONE) 


: 7 X 7 POINT TABLE FOR DOTS AND CROSS=HATCH., 
:X POINTS 


KTBL: 
YSOTBL: 34.*2 +s. eAND 35° HZ Y POINTS. 
1 ;DELTA = 74, 


Y6OTBL: 36.#2 : 60 HZ Y POINTS. 
DELTA = 68. 





S233 





102556 004737 
8499 102562 012702 
8500 102566 0235727 
8501 102574 001402 
$206 102576 012702 
8504 102602 012237 
8505 102606 100416 
8506 102610 012701 
8507 102614 012137 
8508 102620 100770 
8509 102622 052737 
8510 102630 012777 
8511 102636 004737 
a4 102642 000764 
8514 102 012737 
8515 102652 004737 
s2i8 102656 000207 
8518 102660 117774 
8519 102662 040000 
8520 102664 000000 

102666 

22 102 
102 


173000 


102516 
102662 


040000 
102660 
027454 


000001 
104762 


000074 


105070 
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: DOT GENERATOR. 


boTS: 


1$: 


2$: 


JSR PC,CLRRW 

MOV #Y6OTBL,R2 
HZ #60. 

MOV #YSOTBL,R2 

MOV (R2)+,DGY 

BM 3$ 

MOV #XTBL,R1 

MOV (R1)+,D6X 
#1,DGX 

MOV #DGEN, aDPC 
PC,WAITF 


MOV #1,0UTFLG 
JSR Seiten 


STOPN ; *** NOP TO ENLARGE THE DOTS *** 





: INIT DISPLAY. 
sASSUME 60 HZ Y'S. 


sWRONG, USE 50 HZ Y'S. 


SET Y POINT. 
:BR WHEN ALL DOTS DONE. 


SET X POINT. 

2X DONE, GET NEXT Y. 

sSET I BIT. 

; LOOP 

: SAY WE WANT DOTS ON THE OUTLINE 


; OUTLINE THE SCREEN. 
: RETURN TO IDLE LOOP. 






ret 












8528 
8529 
8530 
8531 102702 
8532 102706 
8533 102712 
8534 102720 
8535 102724 
8536 102730 
8537 102736 
8538 102740 
8539 
8540 102744 
8541 102750 
8542 102752 
8543 102760 
8544 102764 
8545 
8546 102766 
8547 102772 
8548 103000 
8549 103006 
8550 103012 
8551 103015 
8552 103020 
8553 103026 
8554 103032 
8555 103034 
8556 103042 
8557 103046 
8558 
8559 103050 
8560 103052 
8561 103054 
8562 103056 
8563 103060 
564 103064 


[_s 
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SELECTED DISPLAYS (STAND=ALONE) 


oO p> + et eee 
OO 

spe SOONOWWWW 
N New 


000207 
114000 


173000 


102516 
103054 


103050 
027454 


000000 


103060 


000074 


100052 


100004 


105070 


: CROSS-HATCH GENERATOR. 
HATCH: 


JSR PC,CLRRW 
CLR CHX 
MOV #1 'MAXX, CHV 
CLR + 
MOV #Y60TBL,R1 
CMP HZ,460. 
BEQ 
MOV #YSOTBL,R1 
1$ MOV (R1)+,CHY 
BMI % 
MOV #HGEN, a@DPC 
JSR PC ,WAITF 
BR 1$ 
23: CLR Y 
MOV #1!0,CHV 
MOV #MAXY , CHV+2 
MOV #XTBL.R1 
3$: MOV (R1)+,CHX 
BMI 4$ 
MOV #HGEN ,,aDPC 
i PC, WAITF 
4$ MOV #1,O0UTFLG 
JSR PC,OUTLIN 
RTS PC , 
HGEN: APNT 
CHX: 0 
CHY: 0 
LVEC!ALL 
CHV f 'MAXX,0 


: INIT DISPLAY. 
SET FOR HORIZ VECTORS. 
sASSUME 60 HZ Y'S. 


WRONG AGAIN. 


SET NEXT 
BR AT END "or Y's. 


;LOOP FOR 7 HORIZ VECTORS. 


SET FOR VERT VECTORS. 


SET NEXT 
7BR AT END OF X'S. 


ag 74 FOR 7 VERT VECTORS. 
; SAY WE WANT 


DOTS ON THE OUTLINE. 


OUTLINE THE SCREEN. 
RETURN TO IDLE LOOP. 


SEQ 0225 
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wee TEST 34 








SELECTED DISPLAYS (STAND-ALONE) 


; DISPLAY A SQUARE, OUTLINING THE PERIMETER OF THE SCREEN. 


PERIM: A 4 PC,CLRRW ; CLEAR FOR READ/WRITE. 
105070 #1,OUTFLG ; E WANT DOTS ON THE OUTLINE 
‘ PC,OUTLIN ; EEN. 
000207 Ss PC ; RETURN TO IDLE LOOP. 


SEQ 0226 
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eee TEST 34 SELECTED DISPLAYS (STAND-ALONE) SEQ 0227 
8574 
8575 ; DISPLAY THE FOUR BASIC. COLORS (BLUE, RED, LT GREEN, DK GREEN) 
8576 ; AND DISPLAY THE NAME OF EACH UNDERNEAT 
8377 ; EACH COLOR "BAND WILL BE 1/4 SCREEN WIDTH. 
8579 103106 004737 026650 COLID: JSR PC,CL : CLEAR FOR READ/WRITE. 
8580 103112 012737 112000 103240 MOV WLVEC LO, 118 
8581 103120 012701 000100 MOV #100,R1 ; START WITH BLUE. 
8582 103124 050137 103240 BIS R1,11$ ; 
8583 103130 012702 000400 MOV #400,R2 + (R2 DIVIDES SCREEN BY 4 & CHANGES COLORS). 
8584 103134 012777 103232 077670 MOV #10$,aDPC + START THE DPU. 
103142 004737 027454 JSR PC,WAITF : WAIT FOR DISPLAY STOP. 
8585 103146 000405 BR 3$ 
8586 
8587 103150 2$: 
103150 052777 000001 077654 BIS #B1TO,aDPC : CONTINUE THE DPU. 
103156 004737 027454 JSR PC ,WAITF : WAIT FOR DISPLAY STOP. 
8588 103162 005302 3$: DEC > ALL DONE? 
8589 103164 001412 BEQ 4$ : YES. 
8590 103166 032702 000077 BIT #77,R2 t NO. TIME TO CHANGE COLOR? 
8591 103172 001366 BNE 2$ : NO. 
8592 103174 006301 ASL R1 : YES. 
8593 103176 042737 001700 103240 BIC #1700,11$ : 
8594 103204 050137 103240 BIS R1,11$ : 
8595 103210 000757 BR 2$ : 
8596 t NOW PRINT COLOR ID'S. 
8597 103212 4$: 
103212 012777 103270 077612 MOV #12$,aDPC : START THE DPU. 
103220 004737 027454 JSR PC, WAITF : WAIT FOR DISPLAY STOP. 
8598 103224 004737 104762 JSR PC; OUTLIN t OUTLINE THE SCREEN. 
8599 103230 000207 RTS PC : RETURN TO IDLE LOOP. 
8601 : 
Bees 3; DISPLAY CODE. 
8604 103232 114000 000000 000000 10$:  APNT,0,0 
8605 103240 112000 1i$: LVECILO 
8606 103242 040000 001776 1!0,MAXY 
8607 103246 000002 000000 2,0 
8608 103252 040000 021776 1!0,MXY !MAXY 
8609 103256 000002 000000 2,0 
8610 103262 173000 STOPN 
8611 103264 160000 103240 DMP, 11$ 
8612 103270 114000 000004 000004 12$:  § APNT.4,4 
8613 103276 152000 110302 SETCB,ACAT 
8614 103302 103774 HAR! ALL 
8615 103304 102 114 125 -ASCIZ /BLUE RED LSB-GRN  -MSB-GRN / 
8617 103356 173000 STOPN 
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eee TEST 34 SELECTED DISPLAYS (STAND-ALONE) SEQ 0228 
8619 ; 
8620 : GUNS ID DISPLAY 
8621 ; THIS DISPLAY IS go hee TO THE COLOR BARS DISPLAY, EXCEPT: 
8622 3: 1. THE BARS ARE HORIZONTA 
Bos? : 2. THE GUNS ACTIVATED FOR EACH BAR ARE PRINTED INSIDE EACH BAR. 
25 103360 004737 026650 GUNID: JSR PC,CLRRW ; CLEAR FOR READ/WRITE. 
26 103364 012777 103636 077440 MOV #ids. ith : START THE DPU. 
103372 004737 027454 JSR PC,W : WAIT FOR DISPLAY STOP. 
8627 103376 012704 112000 MOV #LVEC!LO,RG : INIT VECTOR CONTROL. 
8628 103402 012702 000020 MOV #16.,R ; INIT BA Sy gl 
8629 103406 012703 000017 1$: MOV #15., : INIT VECTORS PER BAR = 
8630 103412 023727 003246 000074 CMP HZ .#60. : = 15 FOR 60HZ, ay FOR 50HZ. 
8631 103420 001402 BEQ 
8632 103422 012703 000020 MOV #16. ,R3 
Rez eeeS 010437 103646 $3: MOV R4,11$ 3; MODIFY DISPLAY FILE VECTOR CONTROL. 
103432 052777 000001 077372 BIS #B1T0,aDPC 3 CONTINUE THE DPU. 
103440 004737 027454 JSR PC, ,WAITF ; WAIT FOR DISPLAY STOP. 
8635 103444 005303 DEC : THIS BAR COMPLETED? 
8636 103446 001371 BNE 3$ : NO, 
8637 103450 062704 000100 ADD #100,R4 : YES. UPDATE VECTOR CONTROL. 
8638 103454 005302 DEC R2 : ALL BARS COMPLETED? 
8639 103456 001353 BNE : NO. 
8640 103460 012704 000004 MOV #4 RG : YES. INIT MSG POSITION CONTROL. 
8641 103464 012701 103776 MOV #30$.,R1 : INIT MESSAGE POINTER. 
8642 103470 012702 000020 MOV #16. ,R2 : INIT MESSAGE COUNTER. 
8643 103474 012737 103774 103720 MOV WCHAR'ALL,23$ ; INIT DISPLAY FILE INTENSITY CONTROL. 
8644 103502 012777 103676 077322 MOV #20$,aDPC : START THE oka 
103510 004737 027454 JSR PC,WAITF : WAIT FOR DISPLAY STOP. 
8645 103514 010437 103712 4$: MOV R4,22 : MODIFY DISPLAY FILE MSG POSITION CONTROL. 
8646 103520 012700 103722 MOV #24$,R0 : MODIFY DISPLAY FILE MESSAGE. 
8647 103524 112120 5$: MOVB (R1)+,(RO)+ 
8648 103526 001376 BNE 
8649 103530 112760 000040 177777 MOVB #* ,=1(RO) 
8650 103536 112720 000040 6$: MOVB #* ,(RO)+ 
8651 103542 020027 103770 CMP RO,#25$ 
8652 103546 001373 BNE 
8653 103550 105060 177777 CLRB =1(RO) 
8654 103554 052777 000001 077250 BIS #81T0,aDPC : CONTINUE THE oy. 
103562 004737 027454 JSR PC ,WAITF : WAIT FOR DISPLAY STOP. 
8655 103566 ssthy: 000074 ADD #74 ,R4 3 UPDATE MSG POSITION CONTROL. 
8656 103572 023727 003250 001776 CMP YMAX , AMAXY50 : ARE WE RUNNING 50HZ? 
8657 103600 001002 BNE 60$ : IF NO 
8658 103602 062704 000004 ADD #4 ,R4 : YES == NEED TO BUMP UP 2 MORE PIXELS. 
8659 103606 005302 60$: DEC R2 ; ALL MSGS DONE? 
8660 H Fd 001407 BEQ 7$ : YES. 
8661 103612 panes! 000010 CMP R2,410 : Uy x9 FLIP INTENSITY? 
8662 103616 001 BNE 4 3 NOT YET 
8663 103620 012737 102000 103720 MOV #CHAR!L0,23$ : YES. CHANGE INTENSITY FROM WHITE TO BLACK. 
peee 103626 000732 BR 4$ 
103630 004737 104762 7$: JSR PC,OUTLIN ; OUTLINE THE SCREEN. 
pret 103634 000207 RTS PC ; RETURN TO IDLE LOOP. 
8669 


8670 : DISPLAY FILES. 
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wee TEST 34 SELECTED DISPLAYS (STAND=ALONE) SEQ 0229 









8671 : 

8672 103636 114000 000000 000000 10$:  APNT,0,0 

8673 103644 173600 STOPN 

8674 103646 112000 11$: LVEC!LO ; THE COLOR BARS... 

8675 103650 041776 000000 T!MAXX, 0 

8676 103654 000000 000002 0, 

8677 103660 061776 000000 1 'MXY !MAXX,0 

8678 103664 000000 000002 

8679 103670 173000 STOPN 

8680 103672 160000 103646 DUMP, 11$ 

8682 103676 114000 000000 000000 20$:  APNT,0,0 

8683 103704 173000 STOPN 

8684 103706 114000 21$:  APNT ; THE IDENTIFICATION MESSAGES. 

8685 103710 000004 4 

8686 103712 000004 228: & 

8687 103714 152000 110302 SETCB,ACAT 

8688 103720 103774 23$:  CHAR!ALL 

8689 103722 130 130 130 24$: eASCIZ /KXMXXXXXXKXAKKAKKHK NII II ICO / 

8690 103770 173000 25$:  STOPN 

8691 103772 160000 103706 DUMP, 21$ 

8692 

8693 

8694 : 

8699 : MESSAGES FOR DISPLAY. 

8697 103776 050 060 060 30$:  .ASCIZ /(0000)/ 

8698 104005 050 060 060 TASCIZ /(0001) BLUE/ 

8699 104022 050 “ASCIZ /(0010) RED/ 

8700 104036 050 TASCIZ /(0011) BLUE, RED/ 

8701 104060 050 C12 /(0100) LSB- 

8702 104100 050 C12 /(0101) BLUE, US6-cRw/ 

8703 104126 050 C12 /(0110) RED, LSB-GRN/ 

8704 104153 050 C12 /(0111) BLUE, RED, LSB-GRN/ 

8705 104206 050 C12 /(1000) MSB-GRN/ 

8706 104226 050 C12 /(1001) BLUE, MSB-GRN/ 

8707 104254 050 C12 /(1010) RED, MSB-GRN/ 

8708 104301 050 C1Z /(1011) BLUE, RED, MSB-GRN/ 

8709 104334 050 C12 /(1100) LSB- MSB-G 

8710 104365 050 ASCIZ /(1101) BLUE, LSB-GRN, MSB-GRN/ 
104424 050 C12 /(1110) RED =GRN, MSB-GRN/ 
104462 050 A C12 7(1111) BLUE, RED, LSB-GRN, MSB-GRN/ 














eee TEST 34 
8715 
8716 
8717 
8718 104526 012746 
8719 104532 000410 
8720 
8721 104534 012746 
8722 104540 000405 
8723 
8724 1 012746 


04542 
8725 104546 000402 
8727 104550 012746 
004737 


Co 

ron 
—O0ONO 

So 

* 

ww 

™~ 


000207 


117774 
170100 
173000 


== 2 ON NOOO 
oO 
= 
nm 
N 
~N 
N 


003774 


002200 


002100 


003400 


104612 
076226 
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SELECTED DISPLAYS (STAND-ALONE) 






; DISPLAYS FOR FILLING SCREEN WITH SOLID COLOR 


SCRWHT: MOV #ALL,=(SP) 

BR SCRCOM 
SCRRED: 
SCRBLU: 


SCRGRN: 


SCRCOM: 


10$: 


MOV 
BR 
MOV 
BR 
MOV 
+4 


APNT! ALL 
SE TMEM 
STOPN 


; GO TO COMMON SECTION 
#L0!200,-(SP) ; GET_RED ONTO STACK, 
SCRCOM GO TO COMMON 


#L0!100,-(SP) ; GET BLUE ONTO STACK, 
SCRCOM : GO TO COMMON 


#L0!1400,-(SP) ; GET FULL GREEN ONTO STACK, 


PC,CLRRW CLEAR FOR READ/WRITE 
PC NTSC ;SETUP COLOR TABLE (IF AVAILABLE) 
#APNT ,10$ INIT PIXEL DATA SELECTION 
(SP)+,10$ INSERT THE COLOR 
#10$,aDPC ZSTART THE DPU 
PC,WAITF WAIT FOR DONE 

C RETURN TO IDLE 


SET THE MEMORY 


SEQ 0230 
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VSV11/VS11 == GRAPHIC SYS. 
eee TEST 34 SELECTED DISPLAYS (STAND-ALONE) SEQ 0231 
8741 : 
8742 : "BLOOM'' TEST DISPLAY 
8743 : THIS DISPLAY ALTERNATELY DISPLAYS A FULL WHITE SCREEN AND A PERIMETER OUTLINE. 
8744 : THE DISPLAY CHANGES ONCE EVERY 2 SECONDS. 
8746 104620 004737 025402 BLOOM: JSR PC,DPINIT zINIT THE DPU 
8747 104624 004737 102320 JSR PC, TBOFF + TURN BLINKING OFF 
8748 104630 004737 027066 JSR PC,NTSC ‘SET UP THE COLOR TABLE (IF AVAILABLE) 
8749 104634 013737 003250 104730 MOV YMAX, 12$ ‘SET UP THE MAX Y VALUES, BASED ON FREQUENCY. 
8750 104642 013737 003250 104740 MOV YMAX, 13$ 
8751 104650 052737 020000 104740 BIS aMXY,13$ 
8752 104656 012777 104666 076146 MOV #10$,aDPC :START THE DISPLAY & LET IT RUN. 
8793 104664 000207 RTS PC ‘RETURN TO THE IDLE LOOP 
8755 : 
e738 ; DISPLAY FILE: 
8758 104666 176034 10S: WRT! CHO :SET ALL CHANNELS TO WRITE-ONLY, SWITCH-ENABLED. 
8759 104670 176434 WRT!CH1 
8760 104672 177034 WRT! CH2 
8761 104674 177434 WRT! CH3 | 
8762 -LOOP TO HERE: 
8763 104676 117774 000000 000000 i1$: APNT!ALL,0,0 :SET WHITE PIXEL DATA 
8764 104704 170100 SETMEM [SET MEMORIES TO ALL WHITE 
8765 104706 170200 SWITCH ; SWITCH TO READ-ONLY TO DISPLAY WHITE SCREEN 
8766 104710 164170 DNOP+120. SHOW IT FOR 2 SECONDS. 
8767 104712 170200 SWITCH SuricH TO WRITE-ONLY MODE. 
8768 104714 170140 CLRMEM [CLEAR MEMORI 
8769 104716 117774 000000 000000 APNT!ALL,0,0 :START PERIMETER OUTLINE AT <0,0> 
8770 104724 110000 LVEC sENTER LONG-VECTOR MODE. 
8771 104726 040000 1'0 ;DRAW LEFT EDGE . 
8772 104730 001776 12$:  MAXY TO TOP OF VISIBLE AREA. 
8773 104732 041776 1 !MAXX : DRA TOP EDGE . 
8774 104734 000000 0 TO RIGHT SIDE. 
8775 104736 040000 1!0 ‘DRAW RIGHT EDGE ... 
8776 104740 021776 13$:  MXY!MAXY :... TO BOTTOM. 
8777 104742 061776 1 !MXY !MAXX ;DRAW BOTTOM EDGE ... 
8778 104744 00000 0 Ck TO <0,0> | 
8779 104746 170200 SWITCH :SuITCH to” READ-ONLY TO DISPLAY PERIMETER 
8780 104750 164170 DNOP+120. ‘SHOW IT FOR 2 SECONDS. 
8781 104752 170200 SWTCH :SWITCH BACK TO WRITE-ONLY 
8782 104754 160000 104676 DJMP,11$ :LOOP BACK TO DO IT ALL OVER AGAIN. 
8784 


Iti ett itr iter iii ii iii i iiiiiiiiiiiiiitiiiiiiiiiiiiitiiit 
* tk 

’ 

se END TEST 34 

te 

a 

- 


MADARA AAASALLLALLLESALSLASASLESESE SESE SEE EEE EERE RRS ESSERE ESSER SEES SSE SS 
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eee TEST 34 SELECTED DISPLAYS (STAND-ALONE) SEQ 0232 ‘ 

8786 : 
8787 : SOME MISCELLANEOUS DISPLAY SUBROUTINES. 
£73 
a9) : SUBROUTINE TO OUTLINE THE PERIMETER OF THE SCREEN. 
8793 104762 013737 003250 105050 OUTLIN: MOV YMAX,11$ : SET Y COORDINATES AS PER HZ. 
8794 104770 013737 003250 165060 MOV YMAX, 12$ 
8795 104776 052737 020000 105060 BIS AMXY,12$ 
8796 105004 012777 105036 076020 MOV #10$,aDPC : START THE DPU. 

105012 004737 027454 JSR PC, WAI TF + WAIT FOR DISPLAY STOP. 
8797 105016 005737 105070 TST OUTFLG : MAKE IT DOTTED (3 DOTS PER SIDE)? 
8798 105022 001 BEQ 1$ : 
8799 105024 004737 105072 JSR PC,OUTDOT tYES == GO DO IT 
8800 105030 005037 105070 CLR OUTFLG :THEN CLEAR THE FLAG 
8801 105034 1$: 
8802 105034 000207 RTS PC 
8803 
8804 $ 
Bone : DISPLAY CODE. 
8807 105036 114000 000000 000000 i0s: APNT,0,0 
8808 105044 113774 LVEC'ALL 
8809 105046 040000 1!0 
8810 105050 001776 11$:  MAXY 
8811 10 041776 1 !MAXX 
8812 105054 000000 0 
8813 105056 040000 1!0 
8814 105060 021776 12$:  MXY!MAXY 
8815 105062 061776 1 'MXY !MAXX 
8816 105064 000000 
8817 105065 173000 STOPN 
8819 ;ROUTINE TO MAKE 3 DOTS IN EACH LINE OF THE PERIMETER: 
8820 105070 900000 OUTFLG: 0 sFLAG FOR ENABLIN 
8821 105072 013737 003250 105162 OUTDOT: MOV YMAX,OUTDT1 : SET UP THE DISPLAY FILE 
8822 105100 013746 003250 MOV YMAX ,- (SP) 3 eee WITH FREQ.- DEPENDENT Y DATA. 
8823 105104 062716 000002 ADD #2, (SP) 
8824 105110 006216 ASR (SP) 
8825 105112 006216 ASR (SP) 
8826 105114 012637 105302 MOV (SP) +, OUTDY1 
8827 105120 012777 105134 075704 MOV WOUTDTF,aDPC =; START THE DPU. 

105126 004737 027454 JSR PC ,WAITF t WAIT FOR DISPLAY STOP. 
8828 105132 000207 RTS PC 
8830 : DISPLAY FILE FOR OUTLINE DOTS: 
8831 105134 116000 000000 000000 OUTDTF: APNT'LO,0,0 ; BEGIN AT 0,0 WITH BLACK 

| 8832 105142 160001 105246 DUMS , OUTDF X ; DO DOT AT 400,0 

8833 105146 160001 105246 DJMS , OUTDF X + ...AND AT 1006.0 
8834 105152 160001 105246 DJMS , OUTDFX : 22 AND AT 1406.0. 
8835 105156 116000 TiL 
8836 105160 0 
8837 105162 001676 OUTDT1: MAXY60 : GETS YMAX 
8838 105164 160001 105246 DJMS, OUTDFX : DO DOT AT 400, YMAX 
8839 105170 160001 105246 DJMS, OUTDFX t se. AND AT 1000, YMAX 
8840 105174 160001 105246 DJMS, OUTDFX + 127 AND AT 1400. YMAX 


(ee a 
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eee TEST 34 SELECTED DISPLAYS (STAND=ALONE) 


8841 105200 116000 
8842 109206 160001 
——-BB43.- 105212 160001 
——-BB44 105216 160001 
| BB45 105222 116000 
| 846 105230 160001 
| $847 105234 160001 
8848 105240 160001 
| BB49 105244 173000 
8850 
8851 105246 110000 
8852 105250 000376 
| 8853 105254 060016 
| 8894 109260 9000 
8855 105264 040016 
| 8856 105270 020020 
8857 105274 165000 
8858 
8859 105276 112000 
8860 105300 000000 
8861 105302 000360 
8862 105304 000000 
8863 105310 040000 
8864 105314 000000 
8865 105320 113774 
8866 105322 040000 
8867 105326 165000 
8868 
8869 
8870 
8871 
8872 
8873 
8874 105330 
105330 012777 
105336 004737 
8875 105342 000207 
8876 
8877 
8878 
8879 
8880 105344 175401 
8881 105346 175501 
8882 105350 175601 
8883 105352 175701 
8884 105354 173000 
8885 
8886 
8887 
8888 
8889 
| 8890 
(6891 
| 


105356 

105356 012777 
105 

105 


920000 000000 


76 000000 


000000 


020020 
000040 
020020 


000000 


344 075474 
454 


105372 075446 
027454 


OUTDFX: 


OUTDFY: 
OUTDY1: 


APNT!L0,0,0 
DJMS, OUTDFY 


DJMS, OUTDFY 
STOPN 


LVE 
MAXX*+2/4=-2 0 
4..0 


LVEC!LO 
4 + 


5 


o-r-Oo~-O 
e- 
2oz 


GO AGAIN TO 0,0 
" A DOT Pd o° YMAX+2/4 
~. AND A *2®<YMAX+2/4> 
. AND aT iy 3*<YMAX+2/4> 


- A DOT at 0, YMAX+2/4 
- AND AT 0, 2*<YMAX+2/4> 
- AND AT 0, 3*<YMAX+2/4> 


; SPACE OVER “yo 
MAK 


KE 8 BLANK 


IXELS 
; GO TO BEYOND THe — POINT 
MAK IXELS 


8 BLANK 


E 
; GO BACK TO TARGET 
RETURN 


a GETS YMAX+2/4 
: ZAP 17 PIXELS 
: BACK UP 


; WRITE A DOT 


> SUBROUTINE TO ENABLE BLINKING (ALL CHANS). 


EBL INK: 


#10$,aDPC 
JSR aaah 


RTS 


+ DISPLAY CODE. 


10S: 


BL INK 
BL INK+100 
BL INK+200 
BL INK+300 
STOPN 


; START THE 


DPU 
WAIT FOR DISPLAY STOP. 


> SUBROUTINE TO DISABLE BLINKING (ALL CHANS). 


DBL INK : 


MOV #10$, ite 


JSR at oWAITF 


START THE DPU. 


; WAIT FOR DISPLAY STOP. 


SEQ 0233 
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eee TEST 34 SELECTED DISPLAYS (STAND=ALONE) 


8894 


8895 : DISPLAY CODE. 
8896 : 

8897 105372 175400 10s: NBL INK 
8898 105374 175500 NBL INK*160 
8899 105376 175600 NBL INK +200 
8900 105400 175700 NBL INK +300 
8901 105402 173000 STOPN 


SEQ 0234 
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eee TEST 35 SYSTEM CONFIGURATION TYPEOUT (STANDALONE) SEQ 0235 

8903 

FRR ERRERERERRRERREERERRREEERREERERERREEREEREEEREEEEEEEE 

;* 

* BEGIN TEST 35 = SYSTEM CONFIGURATION TYPEOUT (STAND-ALONE) 

** 

ITITITITITIIITITIIITIIIITIITILILITL LITT LLLILLL LLL LL LLL ELL LETTE et 

; (ITERATION COUNT = 1.) 
8904 
8905 105510 005737 030070 TST TESTK : STAND ALONE ENTRY? 
8906 105514 001402 BEQ SCONTY : YES. 
y2414 105516 EXIT TST : EXIT THIS TEST >>>>>>>>>>>>>>>>>>>>>>>>>> 
8909 : 
8910 ; THIS "'TEST'' COMPUTES THE VSV SYSTEM CONFIGURATICN AND TYPES IT ON 
8911 + THE TTY, AFTER WHICH I WAITS FOR THE USER TO ‘CONTROL=C'" 
8912 ; BACK TO’THE MONITOR (DS). 
8914 105522 013701 002012 SCONTY: MOV LSUNIT,R1 : GET NUMBER OF LAST UNIT 
8915 103526 162701 000001 SUB #1,R1 
8916 105532 006301 ASL R1 : MAKE A WORD OFFSET 
8917 105534 032761 040000 003302 BIT WBIT14,ERTABL(R1) ; WAS LAST UNIT PREVIOUSLY DROPPED? 
8918 105542 00140 BEQ +6 : BR IF NOT. 
8919 105544 000137 106440 JMP i6$ + GO TO END IF YES == WE FINISHED. 
8920 105550 004737 027702 JSR PC, TSTGO 
8921 105554 005037 030070 CLR TESTK : CLEAR TEST COUNTER SO WE CAN REENTER. 
8922 105560 004737 025402 JSR PC ,DPINIT + INITIALIZE THE DPU 
8923 105564 013701 002012 MOV LSUNIT,R1 
8924 105570 162701 000001 SUB #1,R1 
8925 105574 006301 ASL RT | 
8926 105576 032761 040000 003302 BIT #81714, ERTABL(R1) 
8927 105604 001402 BEQ +6 | 
8928 105606 137 106414 JMP i5$ 
8929 10561 737 030414 JSR PC, CONFIG | 
8930 105616 PRINTF #NULCR 
8931 1056 912701 003256 MOV #MEMTAB,R1 : INIT MEM TABLE PTR. 
8932 105642 01 102 1$: MOV (R1)+,R2 : GET A MEM TAB ENTRY. END OF TABLE? 
8933 105644 10046 BMI 6$ ; YES. (AND R1 NOW PTs TO SYNC CHAN TABLE.) 
8934 105646 001775 BEQ 1 : NO. (BUT THERE'S NO MEMORY THERE EITHER.) 
8935 105650 005003 CLR R : INIT BIT COUNTER. 
8956 105652 012704 000010 MOV #8. RG : INIT SHIFT COUNTER. 
338 19sce0 iat AST R : POSITION THES MEMORY BITS 
8939 1pece> ety ASL RS : 
8940 105664 00630 ASL R ; 
8941 105666 30 ASL R ; 
B42 1056 ASL R ; | 
8943 105672 30 2s: ASL R t SHIFT. GOT A ONE? 
8944 105674 100001 BP! 3 + NO. 
a 198 5 : ; 3$ bee Ri : DONE Seen SiiIF TING? 
ooco 10570 1 % BNE 2 NO. 
8948 105704 1610 177776 MOV =2(R1),R2 + YES. NOW CHECK IF ALL ONE BITS ARE - 
$950 1OSr12. 90630 ma 6 |UCUcB St TTT Nay UE HAVE A NON TSTAUDARD 
8951 105714 b0e3b5 ASL R ; = MEMOR mony. $ 


ee ee ee 


C3 
VSV11/VS11_== GRAPHIC SYS. DIAG MACRO_M1113_ 28-OCT-81 11:23 PAGE 126-1 
EST SYSTEM 


eee TEST 35 EM CONFIGURATION TYPEOUT (STAND-ALONE) SEQ 0236 
8952 105716 00630 ASL R ; 
8953 105720 90630 ASL R : 
8954 105722 006302 ASL R ; 
8955 105724 006302 4$: ASL R : 
8956 109726 100002 BPL 5§ : 
8957 105730 005305 DEC R5 ; 
8958 105732 001374 BNE : 
8959 109754 0102 5$: MOV R1,R2 + GET NUMBER OF THIS MEM IN R2. 
8960 1057 62702 003260 SUB WMEMTAB+2,R2: 
8961 105742 006202 ASR R : 
8962 105744 016104 177776 MOV =2(R1) ,R4 + GET TABLE ENTRY FOR THIS MEM IN R4. 
8963 105750 PRINTF #SCMEM,R2.R4,R3 : PRINT DATA FOR THIS MEM, 
8964 105776 005705 TST R5 + NON-STANDARD? 
8965 106000 001720 1$ + NO. NEXT MEM. 
8966 106002 PRINTF #SCNSTD : YES. TELL THE WORLD!. 
8367 106022 000707 1$ : NEXT MEM, 
8969 106024 012102 6$: MOV (R1)+,R2 : GET SYNC CHAN TABLE ENTRY. END OF TABLE? 
8970 106026 100376 BPL 6$ + NO. (BUT NO SYNC CCHAN THERE). 
8971 106030 020227 177777 CMP R2,a=1 : MAYBE. IS IT EOT OR A SYNC CHAN? 
8972 106034 001443 BEQ 8$ : EOT. 
8973 106036 010103 MOV R1,R3 t SYNC CHAN, GET ITS NUMBER IN R3. 
8974 106040 162703 003272 SUB WSYCTAB+2,R3—: 
8975 106044 006203 ; 
8976 106046 PRINTF #SCSYC.R3,R2 t PRINT DATA FOR THIS SYNC CHAN. 
8977 106072 032702 020000 BIT #BIT13.R2 t INTERLACED? 
8978 106076 001011 BNE 7$ : YES. 
8979 106100 PRINTF #SCNINT : NO. 
8980 106120 000741 BR 63 + NEXT SYNC CHAN, 
8982 106122 7$: PRINTF #SCINT : 
8983 106142 000730 BR 6$ : NEXT SYNC CHAN. 
8985 106144 005737 002512 8$: TST MF GFLG : MFG MODE? 
8986 106150 001521 BEQ 15$ 3: NO. 
8987 106152 015708 003022 MOV MF GMO,R2 : GET MFG MASTER FOR MEM 0. 
8988 106156 00500 CLR R3 : INIT BIT COUNTER. 
8989 106160 012704 000010 MOV #8. .R4 : INIT SHIFT COUNTER. 
8990 106164 005005 CLR R : INIT NON-STDD FLAG. 
8991 106166 006302 ASL R : POSITION THE MEMORY BITS. 
8992 106170 006 ASL R ; 
8993 106172 00630 ASL R 2m 
8994 106174 00630 ASL R - 3 
5996 198209 iret 9$ ASt R : SHIFT. GOT A ONE? 
344] 106202 10000 BPL 10$ >: NO. 
8998 1 003 03 ¢ INC R : YES. COUNT IT. 
8999 1 5 10$: DEC RG + DONE ENOUGH SHIFTING? 
9000 106210 001373 BNE 9$ : NO. 
9001 10621 016108 177776 MOV -2(R1) ,R2 + YES. NOW CHECK IF ALL ONE BITS ARE - 
9008 106216 010 MOV R3,R5 t = CONSECUTIVE, STARTING AT BIT 9 - 
9003 1 ASL R : = (IF NOT, WE HAVE A NON-STANDARD - 
9004 1 ASL R + = MEMORY. 5 
38 (Bese At : 
9007 1 006 ASL R : 
9008 1 11$: ASL R ; 
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003024 
020000 


002012 
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1325 PAGE 126-2 


GET TABLE ENTRY FOR THIS 
PRINT DATA FOR THIS MEM 
ANDARD 


YES. TELL THE WORLD!. 
GET MFG MASTER SYNC CHAN 0 IN 
PRINT yyy FOR THIS SYNC 


+ GET NUMBER OF UNITS 


; MAKE A WORD OFFSET 
; DID LAST UNIT RUN? 


; BR IF YES 
; NO =~ EXIT TO DO ANOTHER. 
; WAIT FOR USER TO <*C>. 


MEMTAB VA 
/ZNZAMFG SYNC CHAN 0,  SYCTAB 
ININ (<*¢> TO GET BACK TO 


REEAAAAAAAEAEEEREREREAEEAEAEAAAAAAAAAARERARAERERAAAAEAEREEERERERREREREREEE 
* 


RAEAAAEEAEAAAERAEREAARAEREARERERARAAAARAAAAAAAAERERAERERAEERREREREREREEREEE 
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9047 -SBTTL 

o¢ 4 -SBTTL SUPERVISORS DISPATCH TABLE 

9050 p++ 

9051 ; THIS TABLE HOLDS THE STARTING ADDRESS OF EACH TEST 
9052 ; FOR THE SUPERVISOR'S DISPATCHER. 


9053 len 





SEQ 0238 
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#*® LUMINANCE (GREY=SCALE) AND COLOR DATA TABL. SEQ 0239 
9057 -SBTTL *** LUMINANCE (GREY=SCALE) AND COLOR DATA TABLES 
e028 3; TABLE OF 256 (8 BITS) LUMINANCE VALUES TO PRODUCE 
9060 ; A LINEAR 12 BIT GREY=SCALE. 

9061 ; 
90 199535 000000 000400 001000 “ethege 400 1000, 1 
gost 18rees Poles Booey Rhee foeg. got. ghee. 1091 
Hives 109585 003400 002401 004000 $200; Si01. 4000, 3 
seg 87ers $8008 BReteD $5808 GMPT- Gs: BUTE: 4538 
9 107302 001040 006400 002403 1640, 6400; 2403; 

3090 199395 3003 40 007400 3003, 2060: 7400, 5020 ;: LEVEL 37 
9071 107322 002404 000060 000006 2404: 60 & 1441 
9072 107332 003004 002023 001042 3004, 2033, 1642, 2405 
9073 107342 000007 440 002024 4440, 2024. 1061 
9074 107352 000100 000010 000462 160 0 462, 2025 
9075 107362 001044 002407 000011 1044, 2467, 11 501 
9076 107372 007440 001063 000120 7440; 1063, 120 12 
9077 107402 000502 003500 001064 502 3500. 1064, 2411 
9078 107412 005407 000503 00 5407, 503,° 2030; 1065 ; LEVEL 77 
9079 107422 000140 000014 000504 140,° 14 504, 2031 
9080 107432 001066 002413 000015 1066, 2413, 15 505 
9081 107442 007444 002540 000160 7444. ¢340, 160 16 
9082 107452 003014 003504 002541 3014; 3504; 2541, 125 
9083 107462 000017 002160 002034 17 2160. 2034, 200 

07472 000126 003142 002161 126 142, 2161, 3506 
9085 107502 001072 001600 007066 1072. 1600, 7066. 2160 
9086 107512 002036 000220 001601 2036, 20 1601, 3126 ; LEVEL 137 
sag 13 Ghcode SUGUNE heres fuse: HR ges 3 
9089 107542 000132 003146 00216 132 ° 3146, 3408° 1222 

107552 004220 004074 004602 4226, 4074. 4602. 166 
9091 107562 003513 000260 00407 3513. 260 4075, 3132 
9092 107572 003640 001152 002477 3640. 1138, 24/7, 223 
9093 107602 000607 003567 000300 607 3567, 300 210 

107612 005476 002243 005241 5476. 2243, 5241, 1154 ;: LEVEL 177 
9095 107622 004152 004660 003153 4152, 4660, 3153. 2172 

107632 00351 900320 004117 3517. $20 4117. 646 
9097 107642 002173 001230 002555 2173. 1236, 335. 15 
9098 10765 007624 000340 647 2624, 40 2574 

07 005554 902 1 002213 5554, @ 1, 2218, 703 
9100 107672 000267 00 265 12 267, 65, 4612, 364 
9101 107702 000 1741 003 66 60 1741, 3 66. 4631 
9102 107712 002177 005213 005 0 177, 5213. 9 » 1634 3; LEVEL 237 
9103 107722 000671 003651 005176 671 3651, 51 $. 272 
si8s farree Sass Gupees Sate 197. Gots: lakes 8 

775 123 43 1237, f ; 6768, 125 

$ior 1Orres Borel oisie guscs? fats, Sis: $287: 18 
9109 11000 333 33 $638 g235, 31. 36. 4 
aris 11002 Nisa atte 7% 5544 13° G57" faze? MEVEL 277 
9112 110032 001370 004 09 364 1370, 4366. Set: 77 
3118 110042 002334 etal 8, 7 2334, $386. 4367. ei7 
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9 
9 
9 
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COLOR DATA TABL 





4751, 627 
5715, 475 
$32} 136 
1374, $3 g 
ary 137 
4755, 775 
7372, 335 
5374, g6? 
6356, 35 
4776, 775 
ie lek 637 
6776, 577 
7776, 6777 


PUAN O— 


NO 
~w 
NUIVIN 
NO NNO & 
sees 


NAMES NNN ES MNP 
SANA SII NA) 
SSN NW NO 
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7 
3 
7 
4 
i ; LEVEL 337 
4 
7 
4 
7 
7 
7 
7 3 LEVEL 377 


; THE BASIC (NTSC) COLORS, PLUS BLACK AND WHITE. 


BLU= = 17*BIT8B 
RED=  17*BITO 
GRN=  —-17*BIT4 


NTSC8: 0 
BLU 


RED 
RED+BLU 
GRN 
GRN+BLU 
GRN+RED 


GRN+RED+BLU 
> A 16 LEVEL VARIATION OF 


EXPRM: 0 


RED 
117 


BLU 


RED+8LU 


BLU+RED+GRN 








BLACK (NO COLOR AT ALL). 
MAGENTA 


YAN 
YELLOW 


; WHITE 


THE ABOVE TO EXPERIMENT WITH. 


BROWN (3RD LEVEL YELLOW). 
RED 

ORANGE (RED + HI GREEN) 
YELLOW 

GREEN 

BLUE 

VIOLET (MAGENTA) 

WHITE. 
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$SVPC=, 
=ACAT#<12%2> 
-=ACAT#<1542> 
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w#® ASCII CHARACTER ADDRESS TABLE AND SUBPIX 


[THE FOLLOWING 128. WORD 
: STARTING, ADD s 


CONTAIN THE CHARACTER SUBPIX 


0-37 AND 140-177 ARE NULL FOR NOW. 
CEPT FOR 12 AND 15) 


30-37 ARE NULL (NLISTED). 
:SAVE PC, BACK UP AND... 
3++eINSERT LINE FEED... 


3..-AND CARRIAGE RETURN ADDRESSES. 
sRESTORE PC 


; SPACE 
7 EXCLAM 
;DOUBLE QUOTE. 
s;NUMBER SIGN 
:PER CENT 

; AMPERSAND 
SINGLE QUOTE 
zLFT PAREN 
:RT_PAREN 

: ASTERISK 
;PLUS 


;MINUS 
PERIOD 
3; SLASH 





-_— 





a oe 
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9224 110968 112334 wedJ 

9225 110530 112354 «KK 

9226 110532 112372 eoLL 

9227 110534 112406 MM 

9228 110536 112424 » «NN 

9229 110540 112444 - 00 

9230 110542 112474 ~PP 

9231 110544 112516 --2Q 

9232 110546 112532 »»RR 

9233 110550 112546 «SS 

9234 110552 112604 TT 

9235 110554 112622 « «UU 

9236 110556 112644 » VV 

9237 110560 112664 «Wd 

9238 110562 112704 « XX 

9239 110564 112730 VY 

9240 110566 112754 «22 

9241 110570 112776 . -LBRK sLFT BRACKET 
9242 110572 113014 » -BSLH :BACK_ SLASH 
9243 110574 113032 . -RBRK 3RT BRACKET 
9244 110576 113050 - CRT ; CARROT 
9245 110600 113064 « «USC ; UNDERSCORE 
9246 110602 110702 + «NULL 3140-177 ARE NULL (NLISTED). 
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#e* ASCII CHARACTER ADDRESS TABLE AND SUBPI SEQ 0243 
9253 ; THESE ARE THE CHAR A Poor ROUTINES. 
9254 : EACH IS BUILT ON DOT MATRIX (ALA VTOS). 
9255 : <CR> WILL INVOKE Ai ‘STOP''. CPU MUST CALCULATE THE START 
9256 + CO-ORDS FOR NEXT LINE, STUFF IN ''..CRX AND ..CRX+2"° AND 
9637 + RESUME, TO XCT PSUEDO-CRLF. 
9259 : THE FOLLOWING MACRO (SXY4) APPLIES A 4X SCALE FACTOR AT 
9260 : ASSEMBLY TIME TO YIELD A CHAR SIZE OF 30 X 40 (OCTAL) 
920) t WHICH PRODUCES A MEDIUM SIZE CHAR FONT. 
9263 MACRO sxv4 A,B,C 
9264 SXY A,BeG Cd 
9269 SENDM = SXY4 
9267 110702 165000 . NULL: DPOP yALL UNDEFINED CHARS EXIT HERE. 
9269 110704 164000 ..LF:  DNOP :DPOP TO NULL THE <LF>. 
9270 110706 104000 SVEC 
9272 110712 165000 DPOP 
9274 110714 164000 ..CR: | DNOP :DPOP TO NULL THE <CRLF>. 
9275 110716 173000 STOPN :WAlT FOR NEW 
9276 110720 114000 APNT aa. EXECUTE TNE <eRLFD 
9277 110722 000000 000060 ..CRX: .WORD 0,0 
978 110726 165000 DPOP 
9280 110730 104000 ..SPC: SVEC 
9282 110734 165000 DPOP 
9283 110736 104000 EXC: SVEC 
9289 110752 165000 DPOP 
9290 110754 104000 QUO: SVEC 
9296 110770 165000 DPOP 
9297 110772 104000 NUM: SVEC 
9307 111016 165000 DPOP 
9308 111020 104000 .DOL: SVEC 
9320 111050 165000 DPOP 
9321 111052 104000 .-PCT: SVEC 
9336 111110 165000 DPOP 
9337 111112 104000 .AND: SVEC 
935¢ 111150 165000 DPOP 
9353 111152 104000 QU01: SVEC 
9357 111162 165000 DPOP 
9358 111164 104000 LPAR: SVEC 
9364 111200 165000 DPOP 
9365 111202 104000 RPAR: SVEC 
9371 111216 165000 DPOP 
9372 111220 104000 .AST: SVEC 
9380 111240 165000 DPOP 
9381 111242 104000 .-PLS: SVEC 
9387 111256 165000 DPOP 
9388 111260 104000 ..CMA: SVEC 
9398 111270 165000 D 
9393 111272 104000 .MNS: SVEC 
9397 111302 165000 D 
9398 111304 104000 .-DOT: SVEC 
9401 111312 1 5000 D 
9402 111314 1 ..SLSH: SYEC 
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SEQ 0244 


*** ASCII CHARACTER ADDRESS TABLE AND SUBPIX 
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tes ASCII CHARACTER ADDRESS TABLE AND SUBPI SEQ 0245 

9685 112404 165000 DPOP 

9686 112406 104000 ..MM: VEC 

9692 112422 165000 DPOP 

9693 112424 104000 NN:  SVEC 

9700 112442 165000 DPOP 

9701 112444 104000 ..00: — SVEC 

9712 112472 165000 DPOP 

9713 112474 104000 ..PP: — SVEC 

9721 112514 165000 DPOP 

9722 112516 104000 ..00:  SVEC wid 
9726 112526 160000 112444 .WORD DJMP,..00 :FINISH USING "0". 
9727 112532 104000 .RR: SVE rai 
9731 112542 160000 112474 .WORD  DJMP,..PP :FINISH USING "P"’. 
9732 112546 104000 ..SS:  SVEC 

9746 112602 165000 DPOP 

9747 112604 104000 ..TT: — SVEC 

9753 112620 165000 DPOP 

9754 112622 104000 ..UU: — SVEC 

9762 112642 165000 DPOP 

9763 112644 104000 WW: SVEC 

9770 112662 165000 DPOP 

9771 112664 104000 w.WW: — SVEC 

9778 112702 165000 DPOP 

9779 112704 104000 XX:  SVEC 

9788 112726 165000 DPOP 

9789 112730 104000 vy:  SVEC 

9798 112752 165000 DPOP 

9799 112754 104000 22:  SVEC 

9807 112774 165000 DPOP 

9808 112776 104000 ..LBRK: SVEC 

9814 113012 165000 DPOP 

9815 113014 104000 ..BSLH: SVEC 
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9822 113030 
9823 113032 
9829 113046 
9830 113050 
9835 113062 
9836 113064 
9839 113072 


165000 


D 
. -RBRK: 433 
CRT: 
oeVSCs 


SEQ 0246 
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eee DEVELOPMENT VERSIONS CONTROL 


113074 021557 
113076 002165 


113100 


8 
: 113404 


113490 


~SBTTL *** DEVELOPMENT VERSIONS CONTROL 


; THE FOLLOWING NUMBERS GET i cea AT EACH NEW ASSEMBLY, THEREFORE: 


: IF THESE NUMBERS DON'T MATCH WHAT'S IN CORE (OCTALLY) THEN THIS 
; LISTING DOESN'T MATCH THE LOADED PROGRAM! 

DDMMY: 09071. 

HHMM : 1141. 


-SBTTL *** PATCH AREA 
» SBTTL 


: FINALLY A GENEROUS PATCH AREA, 
t AND AN ADJUSTMENT TO ACCOUNT FOR THE "‘LAS/AD BIT7"* HACK 
: DESCRIBED IN ‘'SUPPRG.MEM' (FOR REV C). 


PATCH: .BLKw 16. 
; -BLKB <<, +600>8*C377>-. 
=, 137741 


LSLAST:: 


SEQ 0247 
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79 
9 113410 
113412 
9886 113414 


9902 
9903 113440 





DEFAULT HARDWARE P-TABLE 


172000 
000320 
00000 
172010 
000340 
000200 


000000 
000000 


000001 





»SBTTL DEFAULT HARDWARE P-TABLE 


; THE TEST=DEVICE PAR 
; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P=TABLE. 


+t 
THE DEFAULT HARDWARE P=TABLE CONTAINS DEFAULT VALUES OF 


. SBTTL 
PEND: 


- WORD 
- WORD 


- WORD 
«WORD 


172000 
320 
PR104 
0 

0 
172010 
340 
PR104 
0 

0 


AMETERS. 


eeenee TH = TH = TH = TH 
END 


THE STRUCTURE OF 


THIS TABLE 


1ST at 7 IF LUT INSTAL 

1ST (OF 4) VECT 
(5 i 

INTERRUPT Pi ITY. 

LUT AVAILABLE CIF 

SYNC FREQUENCY: # E pt 


1ST (OF 4) |REGISTER(S). 


F LUT INSTALLED ) 
OR(S) 


LUT INSTALLED ). 
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; SYNC FREQUENCY: 0 = 
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SEQ 0250 
SYMBOL TABLE 50 HUE 3222 6 
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eee: Oe, 
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DPCERA 01264 ECSEQe 092530 FLGER 134 G GRN2 = 003000 G ICBAE 0074 
SE 007611 pcscer 236208 FLGERA 1313 GANS © erie © ICBASE 003162 G 
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DSDYE 00 4 FSAUTO= €$LOLI= IER = G 
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GHYF MREAD= 162000 G 
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~-EXC 110736 «-LPAR 111164 - QQ 112516 » SPC 
FF 112236 . MM 119398 ~-QUES 11 919 «SS 
- GG 112254 ~-MNS) = 1172 QUO 39110754 TT 
. -HH 112272 » «NN 112424 ~-QU01 111152 » USC 
ell 112312 »sNULL 110702 «RANG 116005 « «UU 
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- ABS. 113440 000 
00000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 34896 WORDS ( 137 PAGES) 
DYNAMIC MEMORY: 20346 WORDS ( 78 PAGES) 
ELAPSED TIME: 00:36: 

CVVSA.BIN, CVVSA.LST/-SP=SVC33.MLB/ML ,CVVSABO.MAC/EN:AMA:ABS/DS:GBL 
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